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PRESENTAZIONE 


La Microsoft, società produttrice e distributrice di MS-DOS - il più diffuso sistema ope- 
rativo per personal computer - ha dotato questo prodotto, fin dalle sue prime versioni, di 
un linguaggio di programmazione, l’altrettanto famoso BASIC, che ha permesso a 
milioni di utenti non professionali di avvicinarsi per la prima volta a questa impegnativa 
attività informatica che è la programmazione. 

È quindi naturale che anche l’ambiente operativo Windows, che in un certo senso racco- 
glie eredità del DOS e facilita l’uso del computer a platee ancora più vaste di utenti, 
fosse dotato di una propria versione di BASIC, denominata QBASIC. Se la nuova ver- 
sione del linguaggio si presenta più “amichevole” nella sua interazione con l'utente 
rispetto alle precedenti, essa presuppone tuttavia, come ogni linguaggio di programma- 
zione, che l’utente abbia ben chiari i principi e le tecniche fondamentali della program- 
mazione, prima ancora di poter trarre vantaggio dagli aiuti in linea e dalla sintassi delle 
singole istruzioni richiamabili comodamente a video. 

Questo manuale, che riprende e aggiorna le parti principali del precedente volume “Cor- 
so di BASIC” dello stesso autore, intende fornire uno strumento di lavoro e una serie di 
suggerimenti utili a quanti intendano imparare l’affascinante tecnica della programma- 
zione, e assumere un controllo “completo” delle operazioni da far compiere al proprio 
computer, al di là cioè del normale utilizzo quotidiano della maggior parte degli opera- 
tori. A questa categoria di utenti il volume permetterà di passare in maniera semplice - e 
forse anche divertente - dalla fase di “utilizzatori di computer” a quella di “informatici”. 


Capitolo I 


Introduzione 


PERCHÉ LA PROGRAMMAZIONE? 


I termini “programma” e “programmazione” sono abbastanza diffusi anche al di fuori 
degli specialisti informatici: ad esempio, si può scegliere il programma da far eseguire a 
una lavatrice o una lavastoviglie, mentre si può programmare un videoregistratore per- 
ché registri una o più trasmissioni televisive. In tutti questi casi, la programmazione 
determina l’esecuzione di un certo numero di operazioni in maniera sequenziale (cioè 
l’una dopo l’altra), in genere in un tempo futuro, e senza la necessità di ulteriori inter- 
venti umani. Î vantaggi sono diversi: l'operatore può eseguire un’altra attività mentre la 
macchina lavora, è sicuro che l’azione programmata avvenga nei tempi e modi voluti e, 
soprattutto, può ottenere tutto ciò con la semplice pressione di pochi tasti. 


Nel caso dei computer - che si possono considerare delle macchine enormemente più 
complesse degli elettrodomestici - la programmazione permette certo di fare tutto ciò, 
ma anche di più; essa infatti: 


e permette di far eseguire al computer delle operazioni che si susseguono nor solo 
in maniera prefissata, ma anche in un ordine che dipende dal risultato delle ope- 
razioni stesse; 

° permette di far svolgere al computer un numero di compiti assai superiore a 
quelli previsti dal costruttore: anzi, questi si pone solo marginalmente il proble- 
ma di “che cosa” può fare il suo computer, mentre opera sostanzialmente per 
aumentarne l’efficienza e ridurne l'ingombro. 


Spetterà poi al programmatore il compito di istruire il computer a eseguire un compito 
piuttosto che un altro, in un modo facile per l’utente oppure difficile, e con un insieme 
ridotto oppure ridondante di istruzioni. 


PERCHÉ IL QBASIC? 


La programmazione è quindi necessaria per il funzionamento di qualsiasi computer, 
tanto è vero che ciascuno di essi viene venduto con un corredo più o meno ampio di 
programmi o software già presenti al suo interno. Tali programmi sono tradizionalmente 
suddivisi nelle due categorie del software di base e del software applicativo, che svol- 
gono rispettivamente operazioni orientate alla macchina e orientate all’utente. 
Un'operazione orientata alla macchina potrebbe essere, per esempio, la predisposizione 
di un dischetto magnetico per la successiva registrazione dei dati su di esso (formatta- 
zione), o la visualizzazione sullo schermo dei titoli di tutte le registrazioni (file) presenti 
su un disco magnetico. 

Un'operazione orientata all’utente potrebbe essere invece la possibilità di scrivere una 
serie di caratteri sullo schermo e di trasformarli in un testo scritto su carta tramite la 
pressione di pochi tasti, o la possibilità di eseguire operazioni matematiche come con 
una calcolatrice. 

1 software applicativo oggi in commercio copre la maggior parte delle necessità di un 
utente di computer: scrittura, archiviazione, contabilità, addestramento, grafica, suono. 
Esso tuttavia presenta anche delle limitazioni: 

e è poco o affatto modificabile: l'utente può infatti ottenere tutte e sole ie funzionalità 


previste dal progettista, ma raramente può alterare il programma per adattarlo a 
un’esigenza non prevista in fase di acquisto, o modificatasi nel periodo di utilizzo; 

e copre applicazioni standard - cioè quelle per le quali ci sia un mercato sufficiente- 
mente ampio da giustificare gli elevati investimenti economici necessari per lo svilup- 
po di un pacchetto applicativo - ma si disinteressa a quelle che possono essere le esi- 
genze di pochi o di un utente singolo; 

° attua necessariamente un compromesso tra esigenze contrastanti, quali velocità di ela- 
borazione e occupazione di memoria da una parte, facilità di utilizzo e gradevolezza 
dell’interfaccia grafica dall’altra. 


Chi desideri superare una o più di queste limitazioni deve necessariamente affidarsi 
all’opera di un programmatore oppure, ed è la cosa più appassionante, diventare pro- 
grammatore egli stesso. In questo secondo caso un buon punto di partenza è lo studio 
del linguaggio QBASIC, che presenta diversi vantaggi: 


e è fornito insieme all'ambiente operativo Windows, quindi è completamente gratuito 
per la maggior parte di utenti di personal computer; 

° è molto potente, supportando gran parte delle caratteristiche dei linguaggi più avanzati 
(programmazione modulare, ricorsività, costruzione DO CASE...) pur accettando 
costrutti più vecchi dalle precedenti versioni di BASIC; 

e permette di scrivere programmi di diversa complessità: da molto brevi per risolvere 
compiti semplici (ad esempio, trovare tutti gli anagrammi di una parola, eseguire 
un’interpolazione di ordine qualsiasi, ordinare alfabeticamente delle parole), a molto 
lunghi, per risolvere praticamente ogni tipo di problema suscettibile di essere affrontato 
con un personal computer. 


Capitolo 2 


Primi elementi 


AVVIO DI QBASIC 


Dal punto di vista tecnico, QBASIC è un programma o meglio un file di tipo eseguibile 
(il suo nome è infatti QBASIC.EXE), cioè codificato in un formato comprensibile dal 
calcolatore ma non leggibile dall'utente. Esso è di solito memorizzato in una zona del 
disco rigido (sottoindirizzario) chiamata DOS o MSDOS. 

QBASIC può essere avviato sia se sullo schermo è presente il prompt del DOS 


Coi 
(cioè se si lavora ‘in ambiente DOS”), sia se è visualizzata l’icona 


oft 


Micro soft 
OBASIC 


di QBASIC nella finestra delle Applicazioni di Windows 3.1 (cioè se si lavora “in 
ambiente Windows”). Nel primo caso si dovrà scrivere 


cd dos\qbasic 


Nel secondo caso sarà sufficiente posizionare il puntatore del mouse sull’icona di 
QBASIC ed effettuare un doppio click sul pulsante attivo del mouse (in genere quello di 
sinistra). In ambiente DOS il comando qbasic può essere seguito da una 0 più “opzioni” 
(ad esempio, qbasic/B), che producono gli effetti indicati in Tabella 1. 


OPZIONE EFFETTO 


\B Permette di utilizzare un monitor monocromatico composito con una scheda a 
colori. Su un monitor a colori, determina la visualizzazione in bianco e nero. 


” Richiama il programma MS-DOS Editor, che è un editore di testo a tutto 
\EDITOR schermo in grado di creare, modificare, salvare e stampare dei file di testo in 
(\ED) formato ASCII. 


Nei monitor CGA determina l’aggiornamento più veloce possibile dello 
schermo. Non è supportata pienamente da tutti i sistemi. 


Visualizza sullo schermo il numero massimo di righe possibili. 


Fa sì che le funzioni di conversione incorporate in QBASIC (MKS$, MKD$, | 
\MBEF CVS e CVD) trattino i numeri in formato IEEE come se fossero in formato 

binario Microsoft (Microsoft Binary Format). In altri termini, le trasforma 

rispettivamente in MKSMBF$, MKDMBF$, CVSBMF e CVDMBE. 


\NOHI Permette di utilizzare un monitor che non supporta la visualizzazione ad alta | 
intensità. 
î Carica in memoria ed esegue il programma “nome file” all'avvio di QBASIC. 
nome file Se il programma è stato creato con GW-BASIC 0 con BASICA, è necessario 
che sia stato salvato con l’opzione A. | 


Tabella 1- Le opzioni di QBASIC che si possono richiamare quando si avvia il pro- 
gramma in ambiente DOS 


Indipendentemente dalla modalità di avvio, QBASIC presenta per prima cosa la videa- 

ta di benvenuto di Figura 1, che propone subito una scelta tra: 

e premere il tasto <Invio>, per accedere a una serie di schermate di aiuto (dette “Guida 
rapida”) 

è premere il tasto <Esc>, per cancellare la finestra centrale della videata ed entrare 
nell’“ambiente” di QBASIC. 


Per adesso premiamo il tasto <Esc>. 


File Modifica Visualizza Cerca Esegui Debug Opzioni ? 


ia Senza titolo lt) 
î 


Benvenuti in MS-DOS Qbasic 


Copyright (C) Microsoft Corporation 1987-1992 
Tutti i diritti riservati 


<Premere INVIO per consultare la guida rapida> 


ESC per cancellare questa finestra> 


Immediato 


FI = Guida Invio = Esegui Esc = Annulla Tab = Campo seg. Freccia = Voce seg. 


Figura 1 - La videata di QBASIC con la finestra di benvenuto. 


LA VIDEATA DI QBASIC 


Scompare la finestra di benvenuto e compare la videata di Figura 2, che contiene nella 
prima riga la barra dei menu, quindi due finestre intitolate rispettivamente 


Senza titolo e Immediato 


e nell’ultima riga la barra di riferimento e Vindicatore del numero di riga e di colonna 

del cursore. La finestra dove si trova il cursore lampeggiante è detta finestra attiva, e il 

suo titolo è visualizzato in modalità evidenziata. Il cursore può essere spostato da una 

finestra all’altra (facendola diventare attiva) in due modi: 

e premendo il tasto funzione <F6>, oppure 

e posizionando il puntatore del mouse nella finestra desiderata e premendo il suo pul- 
sante attivo (operazione che d’ora in poi chiamerò “‘cliccare”). 


File Modifica Visualizza Cerca Esegui Debug Opzioni ? 


I Senza titolo iti | 


Immediato - | 


x 


alusc+F1=Guida><F6=Finestra><F2=Subs><F5=Esegui><F8=Passo> / N 00001:001 
Figura 2 - La videata di OBASIC 


LA BARRA DEI MENU 


La barra dei menu presente nella prima riga di schermo 


File Modifica Visualizza Cerca Esegui Debug Opzioni  ? 


contiene i titoli di altrettanti menu visualizzabili, e può essere attivata/disattivata in due 
modi: 


° premendo il tasto <Alt> (che si comporta come un interruttore), oppure 
° posizionando il puntatore del mouse su uno dei suoi titoli e cliccando. 


Se si preme il tasto <Alt> viene evidenziata la prima lettera di ogni titolo, e il primo 
titolo (“File”) viene ulteriormente evidenziato con una barra scura. Il menu desiderato 
può essere allora aperto in due modi: 


° digitando la lettera corrispondente, oppure 
e portando la barra scura sul suo titolo, tramite i tasti di movimento del cursore, e pre- 
mendo il tasto <Invio>. 


Una volta aperto un menu, compaiono le sue voci, quelle attive con una lettera eviden- 
ziata, mentre la prima voce è evidenziata anche con una barra scura. 


La voce desiderata si può scegliere anche ora usando la tastiera oppure il mouse, e con 
le stesse modalità già seguite per compiere una scelta nella barra dei menu. 

Se invece si è aperto un menu, ma non si vuole scegliere in esso una particolare opzione 
(o, come si dice, lo si vuole “chiudere”), si può: 


® premere Il tasto <Esc>, oppure 
® portare il puntatore in una zona dello schermo diversa dalle righe delle opzioni e clic- 
care. 


L’ultimo titolo della barra dei menu è costituito da un 
SA 


Esso permette di accedere alle stesse informazioni di aiuto visualizzabili, all’avvio di 
QBASIC con il tasto <Invio> o, durante la sua esecuzione, con la combinazione di tasti 
<Shift>+<F1>. 


PERCHÉ DUE FINESTRE? 


La ragione del fatto che QBASIC presenti due finestre (“Senza titolo” e “Immediato”) è 
legata alla natura “interattiva” di questo linguaggio, cioè alla possibilità di provare l’ef- 
fetto delle singole istruzioni che costituiscono un programma prima ancora di scrivere 
ed eseguire il programma stesso per intero. 

Questa possibilità è di aiuto a chi non conosce ancora bene la sintassi e l’effetto delle 
varie istruzioni di QBASIC, e si realizza scrivendo le istruzioni da provare nella finestra 
“Immediato”, anziché in quella “Senza titolo”. 

È possibile far estendere a tutto lo schermo la finestra “Senza titolo”, con la conseguen- 
te scomparsa della finestra “Immediato”, in due modi: 


® premendo i tasti <Ctrb>+F10, oppure 
° posizionando il puntatore del mouse sul simbolo | 4 | (presente nella seconda riga) e 
cliccando. 


Per ritornare alla situazione precedente, basta ripetere una di queste due operazioni. 


LA FINESTRA “SENZA TITOLO” 


Per vedere un esempio dei diversi modi di funzionamento delle due finestre, scriviamo 
nella finestra “Senza titolo” l’istruzione 


print 5*8 


e premiamo il tasto <Invio>. 

Ci accorgiamo che non viene mostrato il risultato dell’operazione, ma viene posizionato 
il cursore nella seconda riga per l'immissione di un’altra istruzione. Se invece vogliamo 
vedere il risultato, dobbiamo eseguire questo programma (che è costituito da una sola 
istruzione), operando come segue: 


e premere il tasto <F5>, oppure 
° aprire il menu “Esegui” e scegliere l’opzione “Avvia”. 


La videata di QBASIC scompare momentaneamente, per ripresentare l’ultima videata 
del DOS, che termina ora con le righe 


C:\>qbasic 
40 


Premere un tasto per continuare 


(Se QBASIC è stato avviato in ambiente Windows, non compare la riga C: \>qbasic). 
Se si preme un tasto qualsiasi si riottiene l’ultima videata di QBASIC. 


LA FINESTRA “IMMEDIATO” 


Se invece scriviamo l’istruzione 


print sqr(25) 


nella finestra “Immediato” e premiamo il tasto <Invio>, otteniamo subito il risultato (la 
radice quadrata, o square root di 25), visualizzato nella solita videata di MS-DOS, che 
adesso contiene le righe 


C:\>qbasic 
40 
5 


Anche adesso si riottiene l’ultima videata di QBASIC premendo un tasto qualsiasi. 


L'ULTIMA RIGA 


L’ultima riga della videata di QBASIC 


<Maius+F1l=Guida><F6=Finestra><F2=Subs><F5=Fsegui><F8=Pas-so> N 00001:001 


contiene la barra di riferimento e l’indicatore del numero di riga e di colonna in cui si 
trova il cursore. 

La barra di riferimento indica alcuni tasti con la relativa operazione che compiono, e il 
suo aspetto cambia leggermente a seconda di quale sia la finestra attiva. 

L’indicatore riserva 5 posizioni per la riga e 3 posizioni per la colonna in cui si trova il 
cursore, ed è utile soprattutto quando si scrive un programma nella finestra “Senza tito- 
lo”. 
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Numeri e lettere 


TIPI DI DATI NUMERICI 


QBASIC permette di usare sia numeri senza il punto decimale, detti interi, sia numeri 
con il punto, detti reali. Entrambi i tipi si suddividono ulteriormente a seconda del cam- 
po di variabilità del numero, come indica la Tabella 2. 


Tipo di dati Campo di variabilità 

Intero da -32 768 a 32 767 

Intero LONG da -2 147 483 648 a 2 147 483 647 

Singola precisione | da -3.402823*1038 a 3.402823*1058 

Doppia precisione | da -1.79769313486231*10% a 1.79769313486231*10308 
la 


Tabella 2 - Tipi di dati numerici di OBASIC 


NOTAZIONE SCIENTIFICA E FLOATING POINT 


Per quanto riguarda la seconda colonna di Tabella 2, vi ricordo che i numeri molto grandi 
o molto piccoli sono scritti di solito nella notazione scientifica, nella quale ad esempio 


3.402823*10?8 


indica il numero 3.402823 con il punto decimale spostato a destra di 38 posizioni Mnatu- 
ralmente le posizioni vuote sono riempite di zeri). 

Dalla notazione scientifica deriva la notazione floating point (che in italiano si traduce 
virgola mobile, in quanto gli inglesi separano i decimali con il punto, mentre noi con la 
virgola). 

Nella notazione floating point il numero è rappresentato dalla sua mantissa, cioè le cifre 
che devono seguire il punto affinché la parte intera valga 0, seguita dall’esponente a cui 
s1 deve elevare il numero 10 per moltiplicare la mantissa. 

Così il numero precedente si indica, in virgola mobile, 


3402823 E+39 


che significa 


0.3402823*1039 


La notazione in virgola mobile permette di rappresentare numeri molto grandi o molto 
piccoli impiegando un numero ristretto di cifre (nell’esempio precedente, 7 per la man- 
tissa una per Il segno dell’esponente e 2 per il suo valore). 

Naturalmente in tal modo si perde di precisione nel caso si debba operare con numeri 
costituiti da molte cifre significative, in quanto ad esempio, un numero quale 
123456789 deve essere arrotondato a 123456800. 
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TABELLA DEI CODICI ASCII 


Per scrivere un programma non è necessario avere una conoscenza approfondita della strut- 
tura fisica di un computer (hardware); in qualche caso è però necessario possedere semplici 
nozioni di hardware per capire la logica di alcuni aspetti della programmazione. È questo il 
caso della codifica ASCII. Vi ricordo che la memoria centrale di un computer si può consi- 
derare, dal punto di vista logico, come un insieme di tanti quadratini o locazioni, ciascuno 
dei quali è contrassegnato da un indirizzo e può contenere un carattere alfabetico, numerico 
o di altro tipo. Tuttavia, dal punto fisico, un computer è in grado di memorizzare, elaborare e 
trasmettere soltanto un’informazione di tipo binario, che convenzionalmente si indica con 
una successione di “0” e “1” (bit). Per questa ragione è necessario che il carattere contenuto 
in ogni locazione sia espresso come insieme di un certo numero di bit (si usano quasi sem- 
pre gruppi di 8 bit, detti byte), secondo una corrispondenza o codifica che in linea di princi- 
pio potrebbe essere arbitraria, ma che di fatto segue dei criteri standard. Precisamente, i 
caratteri alfanumerici normalmente presenti su una tastiera sono dapprima codificati con un 
numero detto codice ASCII, come è indicato in Tabella 3 (in cui si vede che, ad esempio, il 
codice ASCII della lettera A è il numero 65); quindi tale numero viene trasformato in una 
successione di otto “0” e “1°” secondo le regole del sistema di numerazione binario. 
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Tabella 3 - Tabella dei codici ASCIH decimali (D) ed esadecimali (E). 
Dal codice 128 in poi è indicata la corrispondenza PC Internazionale 
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Ad esempio, la lettera A viene trasformata come indicato in Figura 3. 


A > 65 -> 01000001 
(in base alla codifica ASCII) {in base al sistema binario) 


Figura 3 - Trasformazione della lettera A in una successione di 0 e 1 


I caratteri numerici possono invece essere trasformati secondo due strade, a seconda 
delle necessità: se non devono essere impiegati in elaborazioni numeriche, come ad 
esempio nel caso di un codice fiscale, subiscono la stessa trasformazione di prima: il 
numero 9 viene trasformato come indicato in Figura 4. 


9 > 57 -> 0111001 
(in base alla codifica ASCII) (in base al sistema binario) 


Figura 4 - Trasformazione del numero 9 interpretato come carattere 


Se invece devono essere impiegati in elaborazioni numeriche, i numeri sono trasformati 
direttamente in base al sistema binario, dato che questa codifica (a differenza del codice 
ASCII) permette di eseguire in modo semplice le varie operazioni matematiche. In tal 
caso, il numero 9 viene trasformato come indicato in Figura 5. 


9 -> 00001001 
(in base al sistema binario) 


Figura 5 - Trasformazione del numero 9 interpretato come numero 
Come si vede, è quindi possibile che una stessa sequenza di 0 e 1 indichi due caratteri 
differenti, e questa ambiguità viene risolta dai linguaggi di programmazione attraverso 


la dichiarazione del tipo delle variabili, come vedremo nel paragrafo “Dichiarazione del 
tipo di variabili” (+ pag. 21). 
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Capitolo 4 


Variabili e costanti 


CHE COSA SONO LE VARIABILI 
E LE COSTANTI 


I moderni linguaggi di programmazione (e quindi anche QBASIC) permettono di fare 
riferimento alle varie quantità presenti nella memoria centrale di un computer semplice- 
mente indicandole con un nome simbolico, anziché attraverso l’indirizzo della posizione 
in cui si trovano fisicamente. 

In tal modo chi scrive un programma si può concentrare sulla sua logica, anziché sulla 
struttura del computer che lo dovrà eseguire. 

Se la quantità indicata con il nome simbolico può cambiare durante l'esecuzione di un 
programma viene detta variabile, altrimenti costante; la differenza comunque è solo 
nell’utilizzo, dato che QBASIC tratta nello stesso modo variabili e costanti. In particola- 
re, l'operazione che fa corrispondere un nome a una quantità si chiama assegnazione di 
valore o inizializzazione di una variabile. 

Ad esempio, se intendiamo numerare le pagine di un documento, possiamo assegnare 
dapprima alla variabile PAGINA il valore 1 con un’istruzione del tipo 


LET PAGINA = 1 


e quindi aumentare tale valore con l'istruzione 


PAGINA = PAGINA+1 


Osserviamo che l’ultima uguaglianza rappresenterebbe un'equazione impossibile in 
matematica, mentre in programmazione significa semplicemente: 


“assegna alla variabile PAGINA il valore attualmente posseduto dalla variabile 
PAGINA incrementato di 1”. 


Se invece vogliamo usare più volte un valore molto preciso di x (il rapporto fra la cir- 
conferenza e il diametro di un cerchio), ci conviene assegnare una volta per tuite tale 
valore a una costante, con un'istruzione del tipo 


CONST PI = 3.141592653589 


e quindi usare nei nostri calcoli la costante PI anziché il suo valore (approssimato) 
3.141592653589, evidentemente meno facile da ricordare e da scrivere. 


ASSEGNAZIONE DI VALORI DA PROGRAMMA 
(LET, CONST) 


Le due istruzioni 


LET PAGINA = 
e 
CONST PI = 3.141592653589# 


che abbiamo visto nel paragrafo precedente sono un primo esempio di istruzioni che 
assegnano un valore, rispettivamente a una variabile e a una costante da programma 
(altre possibilità sono costituite dalle istruzioni INPUT, LINE INPUT, INPUT$ e 
INKEY$ esaminate nel paragrafo “Immissione di dati dalla tastiera”, — pag. 55 e dalle 
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READ...DATA esaminate nel paragrafo “Lettura e assegnazione di valori”, + pag. 98). 
Le istruzioni LET e CONST hanno la seguente forma sintattica: 


[LET] variabile = espressione 
[CONST] costante = espressione[, costante = espressione] 


dove: le clausole LET e CONST sono facoltative (e di fatto vengono quasi sempre 
omesse); il nome simbolico della variabile e della costante può comprendere fino a 40 
dei caratteri A-Z, 0-9, “.” e deve iniziare con una lettera; l’espressione è una qualsiasi 
combinazione di costanti o variabili, dello stesso tipo del nome simbolico a cui è asse- 
gnata (questo punto sarà chiarito nel paragrafo successivo). 

Osserviamo che l’istruzione di assegnazione non è un’uguaglianza in senso algebrico, 
per cui non è lecito scambiare l'ordine dei due termini e scrivere, ad esempio, 


1 = PAGINA 


anziché 


PAGINA = 1. 


TIPI DI VARIABILI 


QBASIC permette di usare quattro tipi di variabili numeriche, corrispondenti ai tipi di 
dati numerici visti al paragrafo “Tipi di dati numerici” (+ pag. 13), e cioè di tipo intero, 
intero LONG, singola precisione, doppia precisione, oltre a variabili di stringa, cioè con- 
tenenti caratteri alfabetici o numerici, ma questi ultimi codificati in un formato non adat- 
to per le elaborazioni numeriche. 

Ora, dato che questi tipi di variabili hanno lunghezza in byte diversa (come indica la 
Tabella 4), e che uno o più byte possono rappresentare caratteri diversi, è necessario indi- 
care al computer qual è l’interpretazione che deve essere data ai caratteri associati a un 
nome simbolico, cioè dichiarare quale tipo di dati è contenuto nelle variabili che inten- 
diamo usare. 


Tipo di variabile Lunghezza 
ntero 2 
ntero LONG 4 

Singola precisione 4 

Doppia precisione 8 

Stringa variabile 


Tabella 4 - I tipi di variabili impiegati in QBASIC, con le rispettive lunghezze 
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DICHIARAZIONE DEL TIPO DI VARIABILI 
(DEF, CLEAR) 


In alcuni linguaggi di programmazione la dichiarazione del tipo di variabili e costanti è 
effettuata in modo esplicito: ad esempio, in Pascal un'istruzione del tipo 
var radl, rad2: real; 

cont, l: integer 


ha l’effetto di dichiarare reali le variabili radl e rad2, e intere le variabili cont e i. 
QBASIC permette di dichiarare il tipo di variabili sia in modo implicito sia esplicito. La 
dichiarazione implicita si effettua facendo seguire al nome della variabile un suffisso, 
come indicato in Tabella 5. 


Tipo di variabile Suffisso 
Intero % 
Intero LONG & 
Singola precisione | (o nessuno) 
Doppia precisione # 
Stringa $ 


Tabella 5 - Suffissi che identificano i vari tipi di variabili OBASIC in modo implicito 


Ad esempio, l'istruzione di assegnazione vista in precedenza 


PAGINA = 1 


definisce contemporaneamente a singola precisione la variabile PAGINA e le assegna il 
valore 1. La dichiarazione esplicita si effettua tramite le istruzioni indicate in Tabella 6. 


Tipo di variabile struzione 
Intero DEFINT 
Intero LONG DEFLNG 
Singola precisione DEFSNG 
Doppia precisione DEFDBL 
Stringa DEFSTR 


Tabella 6 - Istruzioni che definiscono i vari tipi di variabili OBASIC in modo esplicito 


Queste istruzioni hanno forme sintattiche del tipo 


DEFINT A-G 


che dichiara intere le variabili i cui nomi inizino con una lettera compresa fra A e G, 0 
del tipo 
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DEFDBL D-H, S-W 


che dichiara in doppia precisione le variabili i cui nomi inizino con una lettera compresa 
fra De H, oppure fra S e W. 

La definizione implicita tramite suffisso ha sempre la precedenza sulla definizione 
esplicita tramite istruzione. 

Osserviamo che la scelta del tipo di variabile dev'essere effettuata in modo da non spre- 
care inutilmente spazio in memoria; perciò sarà meglio scrivere l'istruzione 


PAGINA* = 1 


che impiega 2 byte per memorizzare il dato, e permette di numerare le pagine fino a 
32767, piuttosto che 


PAGINA = 1 


che impiega 4 byte e permette di numerare le pagine fino a 3*1058. (valore decisionale 
fuori dal comune) 

È anche possibile usare, nel corso di un programma, una variabile che non sia stata in 
precedenza inizializzata: in tal caso QBASIC pone uguale a zero il valore iniziale delle 
variabili numeriche e imposta le stringhe a lunghezza nulla. 

Questa situazione è anche prodotta dall’istruzione 


CLEAR 


che fra gli altri effetti ha quello di cancellare dalla memoria del computer tutte le variabili. 
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Capitolo 5 


Visualizzazione di testo sullo schermo 


RIGHE, COLONNE E CELLE 


QBASIC mantiene dalle precedenti versioni di BASIC la distinzione fra testo e grafica, 
nel senso che impiega istruzioni differenti per visualizzare caratteri alfanumerici e semi- 
grafici (testo) oppure singoli puntini e figure geometriche (grafica); di quest’ultima ci 
interesseremo nel capitolo “La grafica” (+ pag. 147). Agli effetti della visualizzazione 
del testo, lo schermo si può considerare come una griglia di righe orizzontali e di colon- 
ne verticali; con la loro intersezione le righe e le colonne determinano delle celle, cia- 
scuna delle quali visualizza al suo interno un carattere (vedi Figura 6). La configurazio- 
ne standard dello schermo è di 80 colonne e 25 righe, ma sulle ultime due righe non è 
possibile scrivere. Infatti QBASIC impiega la 25° riga per visualizzare il messaggio. 
Premere un tasto per continuare e la 24° riga per separare questo mes- 
saggio dal resto del testo (l’argomento sarà ripreso dalla Nota del paragrafo “Stampa di 


grafici”, —> pag. 173). 
i) 


at 


Colonne 


Righe 


ii 
n { | 


cella 


D, 


Figura 6 - Colonne e righe nello schermo di testo 


Nota. Nel seguito del libro vedremo numerosi esempi di istruzioni o programmi adatti a 
illustrare le varie forme sintattiche e le tecniche di programmazione descritte; se al ter- 
mine di una o più istruzioni compare il simbolo <F5> significa che, dopo aver copiato le 
istruzioni sulla videata di QBASIC, la pressione del tasto funzione <F5> permette di 
“provare” immediatamente l’effetto delle istruzioni, ottenendo sulla videata del DOS il 
risultato indicato dopo i caratteri <F5>. Ad esempio, la scrittura 


PRINT “prova” <F5> 
prova 


significa che, se scriviamo sullo schermo di QBASIC l'istruzione 
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PRINT “prova” 


e premiamo il tasto <F5>, sullo schermo del DOS compare la parola 


prova 


ISTRUZIONE PRINT 


L’istruzione più comune per scrivere sullo schermo è 


PRINT {lista di espressioni] 


dove la lista è un elenco di una o più costanti o variabili numeriche o di stringa; nel c so 
di più espressioni, queste vanno separate con virgola (“,°), punto e virgola (“7 spazi 
vuoti o tabulazioni. 

Se le espressioni sono separaie con la virgola, vengono visualizzate ciascuna all’inizio 
di una delle sei zone di stampa {che iniziano rispettivamente alle colonne 0, 14, 28, 42, 
56, 70) in cui è diviso lo schermo, come indicato in Figura 7. Esempio: 


PRINT 5*3, 8-10 <F5> 
ES -2 


Figura 7 - Suddivisione dello schermo in zone di stampa 


Se le espressioni della lista sono separate con punto e virgola (o con spazi vuoti o con 


«9 


tabulazioni, che vengono convertiti automaticamente in “;°), sono visualizzate una di 
seguito all’altra; tuttavia i valori numerici sono sempre preceduti da un carattere, che per i 


RE rta 


numeri positivi è il carattere vuoto, per quelli negativi il segno meno (‘-’’). Esempio: 


PRINT 5*3; 8-10; “ferro”; “via” 


PRINT “ferro”, “via” <F5> 
15 -2ferrovia 
ferro via 
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66,99 


Se l’ultima espressione della lista è seguita da “” o da ‘“;”, questo carattere determinerà 
la posizione di stampa della prima espressione indicata nella successiva istruzione 
PRINT: in altri termini, la coppia di istruzioni 


PRINT 5*3; 
PRINT 8-10 


ha lo stesso effetto dell'istruzione 


PRINT 5*3; 8-10 


Se si chiede a PRINT di visualizzare una linea più lunga di 80 caratteri (la larghezza 
dello schermo), la linea viene spezzata e visualizzata su due o più righe di schermo. 
Se usata senza parametri, PRINT produce una riga vuota. Esempio: 


PRINT “MENU” 

PRINT 

PRINT 

PRINT “Capitolo 1°” 

PRINT 

PRINT “Capitolo 2°” <F5> 
MENU 


Capitolo 1° 


Capitolo 2° 
La cancellazione di tutti i dati visualizzati sullo schermo si ottiene con l’istruzione 
CLS 


che in genere sarà bene far eseguire prima di qualsiasi istruzione che scriva sullo schermo. 


VISUALIZZAZIONE DI DATI FORMATTATI 
(PRINT USING) 


Per avere un maggiore controllo sul formato con cui sono visualizzati i dati, si usa 
l'istruzione PRINT USING anziché PRINT. Questa istruzione ha la seguente forma sin- 
tattica 


PRINT USING stringa di formato; lista di espressioni 


LT 


dove: la stringa di formato è costituita da 1 fino a 24 dei codici di controllo indicati nei 
due paragrafi successivi racchiusi tra virgolette, e le espressioni possono essere, come 
nell’istruzione PRINT, numeriche o di stringa. 

Nel caso di espressioni di stringa, le possibilità di controllo permettono di stampare le 
espressioni limitatamente al primo (!), o ai primi (\...\) caratteri o per intero (&). Mag- 
giori possibilità di controllo si hanno invece per le espressioni numeriche. 


CODICI DI CONTROLLO 
PER ESPRESSIONI DI STRINGA 


! 


Visualizza solo il primo carattere delle espressioni successive. Esempio: 


AS = “CAPO”: BS = “SEZIONE” 
PRINT USING “!”; AS; B$ <F5> 
CS 


\ 

Visualizzano solo i primi due caratteri delle espressioni successive; se tra le barre è 
inserito un carattere vuoto (\ \), visualizzano i primi tre caratteri, se sono inseriti due 
caratteri vuoti (\ \) i primi quattro caratteri, e così via. Se un’espressione è più lunga 
della stringa, i caratteri in eccedenza sono ignorati; se invece è più corta, viene allineata 
a sinistra e alla sua destra sono inseriti spazi vuoti. Esempi: 


AS = CAPO”: BS = “SEZIONE” 


PRINT USING ”“\\"; AS; BS <F5> 
CASE F 

PRINT USING “\ \"; AS; B$ <F5> 
CAPO SEZIO 


& 
Visualizza la stringa esattamente come è stata inserita (cioè come farebbe un'istruzione 
PRINT). 


Visualizza il codice di controllo che lo segue come un carattere alfabetico. Esempio: 


PRINT USING “_&&”; Company <F5> 
&Company 


«o 99 cop» 


In effetti, l’unico modo per stampare davanti a un'espressione uno dei caratteri 
‘4 “&?” è di iniziare la stringa di formato rispettivamente con “©? “_!° “°° “ &°. 
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CODICI DI CONTROLLO 
PER ESPRESSIONI NUMERICHE 


# 

Visualizza una cifra del numero per ogni carattere “#” presente nella siringa. Se il 
numero ha meno cifre dei caratteri ‘#° specificati, viene allineato a destra e alla sua 
sinistra sono inseriti spazi vuoti; se invece ha più cifre, viene arrotondato. Esempio: 


PRINT USING “ .-##"; 1223.4567 
PRINT USING “ -##"; 1.2345 <F5> 
123.46 

Db 23 


Visualizzano uno o più asterischi davanti ai numeri, in sostituzione degli eventuali spazi 
vuoti. Esempio: 


PRINT USING “**#.##”7; 1123.4567 

PRINT USING “**i.##”; 1.2345 <F5> 
123.46 

*+*1,23 


(1332) 


(osserviamo che anche un carattere 
numero di cifre da visualizzare). 


, come pure un ‘“#”, contribuisce a determinare il 


+ 
Visualizza il segno (“+ o ‘-”°) davanti ai numeri, se è posto all’inizio della stringa di 
formato; se è posto alla fine, visualizza il segno dopo i numeri. Esempi: 


PRINT USING “ .##%; 1123.4567; -123.4567 <F5> 
+123.46-123.46 


PRINT USING “###. "; 123.4567; -123.4567 <F5> 
123.46+123.46- 


- (meno) 
Visualizza il segno 
mato. Esempio: 


(1955) 


dopo i numeri negativi, se è posto alla fine della stringa di for- 


PRINT USING “ P "; 123.4567; -123.4567 <F5> 
123.46 123.46- 


. (punto) 
Visualizza il punto decimale nella posizione in cui si trova. 


$ (oppure $$) 


Visualizza il simbolo “$” davanti ai numeri. Esempio: 
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PRINT USING “5 .##”: 1223.4567 «Bas 
5123.46 


AAAA 


Visualizzano i numeri nella forma in virgola mobile (+ pag. 13) E+xx. Esempio: 


PRINT USING “i. SORA Won 123-450 <F5> 
0.1235E+03 


AAAAA 


Visualizzano i numeri nella forma in virgola mobile E+xxx. Esempio: 


PRINT USING “#. SIND E, lA 3564, <F5> 
0.1235E+003 


Se all’inizio della stringa di formato sono presenti caratteri diversi dai codici di control- 
lo, questi sono stampati come scritti. Esempio: 


PRINT USING “Formato con 3 decimali i "i; 123.4567 <F5> 
Formato con 3 decimali 123.457 


SALTO DI SPAZI (SPC, SPACE$) 


Se in un'istruzione PRINT si inserisce la funzione 


SPC (n) 


vengono saltati a spazi in una riga di stampa, come mostra il seguente esempio (nel qua- 
le la stringa 1234567890 è stata Inserita solo per fornire un controllo sul numero di spa- 
zi stampati): 


PRINT “1234567890” 

PRINT “Nome”; SPC(3); “Cognome” <F5> 
12345678390 

Nome Cognome 


Lo stesso effetto si ottiene anche usando la funzione 


SPACES (n) 


che genera una stringa di n spazi, e può essere usata anche al di fuori di un'istruzione 
PRINT. Esempio: 


S3$= SPACES (3) 
PRINT “Nome”; S3$; “Cognome” <F5> 
Nome Cognome 
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AVANZAMENTO 
A UNA COLONNA SPECIFICA (TAB) 


L'uso della funzione 


TAB (n) 


in un'istruzione PRINT permette di saltare alla r-ma colonna di schermo in una riga di 
stampa. Esempio: 


PRINT “1234567890” 

PRINT “Nome”; TAB(10); Cognome <F5> 
1234567890 

Nome Cognome 


La differenza tra le funzioni SPC e SPACE$ da una parte, e TAB dall’altra, è che le pri- 
me determinano uno spostamento relativo all’ultima posizione di stampa, la seconda 
uno spostamento assoluto rispetto al margine sinistro dello schermo. 


POSIZIONAMENTO DEL CURSORE 
(LOCATE, CSRLIN, POS) 


Un controllo ancora maggiore della posizione del cursore di quello permesso dalle fun- 
zioni SPC, SPACES e TAB è fornito dall’istruzione 


LOCATE [riga][, [colonna] {[,[cursore][,{[inizio][,fine]]]] 


che permette di posizionare il cursore nella riga e colonna di schermo indicate. Il valore 
di riga deve essere compreso fra 1 e 25, quello di colonna fra 1 e 40 oppure fra 1 e 80, a 
seconda della larghezza dello schermo (vedi la successiva istruzione WIDTH). Ad 
esempio, la seguente coppia di istruzioni 


LOCATE 12, 30 
PRINT “Centro dello schermo” 


visualizza la frase “Centro dello schermo” al centro dello schermo. Il cursore risulta 

visibile se il parametro cursore vale 1, invisibile se vale 0. Se è visibile, il cursore ha la 

forma di un rettangolo, la cui altezza è determinata dai valori delle righe di inizio e di 

-. nella matrice in cui sono ricavati 1 caratteri (vedi il successivo capitolo “La grafi- 
° a pag. 147). 


0 TT inizio 


re: lime 
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Per conoscere la posizione del cursore sullo schermo si usano le funzioni 


CSRLIN 


che fornisce la riga, e 
POS (1) 


che fornisce la colonna attuale del cursore (l’argomento 1 è completamente irrilevante, e 
può essere sostituito da altro numero intero). Esempio: 


LOCATE 5, 20 
PRINT CSRLIN; LOC(1) <F5> 
Si Zd 


CAMBIAMENTO DEL NUMERO 
DI COLONNE O DI RIGHE (WIDTH) 


È possibile cambiare il numero delle colonne visualizzate sullo schermo e, se il compu- 
ter ha una scheda EGA o VGA (vedi il successivo paragrafo “Schede grafiche”, a pag. 
147), anche delle righe usando l’istruzione 


WIDTH [colonne]{[, righe] 
dove'le colonne possono essere 40 0 80, e le righe 25, 30, 43, 50 o 60. 


STAMPA SU CARTA (LPRINT, LPRINT USING) 


Le istruzioni PRINT e PRINT USING viste nei paragrafi precedenti sono simili alle 
istruzioni LPRINT e LPRINT USING, che permettono di trasferire i risultati delle ela- 
borazioni alla stampante anziché allo schermo. Esse hanno la stessa forma sintattica, e 
cioè 


LPRINT [lista di espressioni] 
LPRINT USING stringa di formato; lista di espressioni 


con gli stessi significati ed effetti dei parametri di PRINT e PRINT USING. 

Anche in questo caso si assume che la stampante permetta di scrivere 80 caratteri per 
riga, ma tale numero può essere reimpostato, se la stampante permette di scrivere più di 
80 caratteri per riga, con l'istruzione WIDTH. 
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FINESTRA DI TESTO 
(VIEW PRINT, CLS 2) 


Finora la visualizzazione del testo è avvenuta sull’intero schermo. Tuttavia l'istruzione 


VIEW PRINT [lineasup TO lineainf] 


permette di ridurre l’area di visualizzazione a una finestra di testo, consistente in una 
porzione orizzontale di schermo compresa tra la lineasup e la lineainf. Una finestra di 
testo permette anche di controllare lo scorrimento verticale del testo, che scompare dalla 
parte superiore dello schermo quando è stata completata l’ultima riga di schermo. Inve- 
ce, dopo un’istruzione VIEW PRINT, lo scorrimento ha luogo solo fra la lineasup e la 
lineainf della finestra, mentre l'istruzione 


ChSuz 
pulisce solo il testo all’interno della finestra, lasciando inalterato quello al suo esterno. 


Gli effetti dell’istruzione VIEW PRINT si possono esaminare eseguendo il seguente 
programma, che produce l’uscita di Figura 8. 


CLS. 

LOCATE. 3; L ; 
PRINT “l'esto sopra la. finestra. Non scorre” 
LOCATE 4, 1: PRINT “ Li 
LOCATE 11, 1: PRINT “ ds 
PRINT “Testo sotto. la. finestra.” 

PRINT. “Premere un tasto per cancellarla” 
VIEW PRINT. 5. TO.10 

FOR: 1 =. li 10.20 

PRINT i; “linea di testo” 


FOR K =. 1. TO 500: NEXT 
NEXT 

DO: LOOP WHILE INKEYS = “” 
CLS..2 END 


Anche se alcune delle istruzioni di questo programma saranno spiegate più avanti, esso 
risulta abbastanza chiaro, e potrà essere modificato facilmente per le varie esigenze. 


Testo sopra la finestra 

16 linea di testo 

17 linea di testo 

18 linea di testo 

19 linea di testo 

20 linea di testo Figura 8 - Creazione di una finestra 
di testo, con scorrimento e cancella- 

Testo sotto la finestra zione indipendenti dal resto dello 


Premere un tasto per cancellarla schermo 
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Capitolo 6 


Funzioni ed espressioni numeriche 


x 


CHE COS’E UNA FUNZIONE 


Una funzione di QBASIC è una serie di istruzioni che forniscono un risultato utilizzabi- 
le da un programma o visualizzabile sullo schermo. Una funzione opera in genere su 
un’espressione numerica o di stringa, che viene detta il suo argomento o parametro ed è 
scritta tra parentesi tonde dopo il nome della funzione. 

QBASIC possiede un certo numero di funzioni predefinite 0 incorporate, cioè progetta- 
te dagli autori del linguaggio e codificate una volta per tutte nell’interprete di QBASIC; 
esse si dividono in funzioni numeriche, e di stringa. QBASIC permette inoltre all’utenie 
di definire proprie funzioni, come vedremo nel paragrafo “Funzioni” (+ pag. 97). 
Riporto di seguito l’elenco delle funzioni numeriche e di stringa con semplici esempi 
del loro funzionamento, mentre illustrerò le funzioni necessarie per la gestione dei file 
nel capitolo che tratta di questo argomento. 


FUNZIONI NUMERICHE 


Le funzioni numeriche sono quelle che forniscono come risultato un numero. Il loro ar- 
gomento può essere una variabile o costante numerica - che negli esempi che seguono è 
indicata con una delle lettere x, y, z, se si tratta di un valore reale, con n se intero - oppure 
una stringa di caraîteri; nel secondo caso la funzione trasforma la stringa in numero. 


ABS) 
Fornisce il valore assoluto di x, cioè x stesso se è positivo, il suo opposto se è negativo. 
Esempio: 


PRINT ABS(34.5) ; ABS(-5.8) <F5> 
34.5 5.8 
ATNO) 
Fornisce l'angolo, misurato in radianti, la cui tangente è x. Esempio: 
PRINT ATN(1.55741) <F5> 
1.000001 


Ricordo che: 


° l'angolo di 1 radiante è quello formato da due raggi di una circonferenza che intercet- 
tano sulla circonferenza un arco lungo quanto il raggio (vedi Figura 9) 


A 


O B 
Figura 9 - Se i segmenti AO, OB e l’arco AB sono uguali, l'angolo AOB è di 1 radiante 
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® per convertire i radianti in gradi si moltiplica il numero di radianti per 
180/3.141592653589. 

° Ja tangente dell’angolo AOH in Figura 10 è data dal rapporto fra l'altezza AH e la base 
OH 


0) H 


Figura 10 - La tangente dell’angolo AOR è definita dal rapporto AH/OH 


CDBL(x) 
Converte l’espressione numerica x in un valore in doppia precisione. Esempio: 
PRINT 1/3, CDBL(1/3) <E5s 
+ SSSIIII +33339933ZISIZITO 
CINTA) 


Converte x in un intero, arrotondando la parte decimale. L'argomento dev'essere com- 
preso fra -32768 e 32767. Esempio: 


PRINT CINT(56.78), CINT(-2.89) <F5> 
54 33 


CLNG(x) 
Converte x in un intero LONG (+ pag. 13) di 4 byte, arrotondando la parte decimale. 
L'argomento dev'essere compreso fra -2147483648 e 2147483647. Esempio: 


PRINT CLNG(338457.8) <F5> 
338458 


COS) 
Fornisce il coseno dell’angolo di ampiezza x radianti (ricordo che per convertire i gradi 
in radianti si moltiplica il numero di gradi per 3.141592653589/180). Esempio: 


PRINT COS(1.047197) <F5> 
0.5000005 


CSNG(x) 
Converte x in un numero a precisione singola, arrotondando la parte decimale. Esempio: 


PRINT CSNG(975.3421515 
975.3422 


<F5> 


— 


EXP) 
Fornisce il valore di e*, dove e rappresenta il numero di Nepero, uguale a 
2.7182818284590... Esempio: 
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PRINT EXP (2) <F5> 


7.389056 
FIX) 
Tronca x a un intero (senza arrotondare la parte decimale). Esempio: 
PRINT FIX(56.78), FIX(-2.89) <F5> 
56 -2 
INTE) 
Fornisce l’intero uguale o immediatamente inferiore a x. Esempio: 
PRINT INT(56.78), INT(-2,89) <F5> 
Bb /=3 
LOG) 


Fornisce il logaritmo di x in base e, dove e rappresenta il numero di Nepero, uguale a 
2.7182818284590... Esempio: 


PRINT LOG(7.389056) <E5S 
2 


RND(x) 
Fornisce un numero casuale in precisione semplice compreso tra 0 e 1, generato in base 
al valore del parametro x, secondo quanto indicato in Tabella 7. 


Valore di x Numero casuale fornito da RND 

si 
minore di 0 un numero diverso per ogni valore diverso di x 
maggiore di 0 il numero successivo di una sequenza predefinita 
(o nessun valore) 
0 l’ultimo numero fornito 


Tabella 7 - Effetti del parametro x nella funzione RND(x) 


Consideriamo i seguenti esempi: 


PRINT RND(-1), RND(-2), RND(-1) <F5> 
.224007 .7133257 .2240007 


PRINT RND(1), RND(0), RND(1) <Fb5> 
.7055475 ./055475 .533424 


I numeri casuali generati con valori di x maggiori di 0 appartengono a una sequenza pre- 
definita, quindi sono in realtà pseudo-casuali. Si può ottenere una diversa sequenza di 
numeri pseudo-casuali facendo precedere la funzione RND dall’istruzione 


RANDOMIZE n 
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che a ciascun valore dell’argomento n fa corrispondere una diversa sequenza di numeri. 
Un argomento a sua volta casuale è costituito dalla funzione TIMER (+ pag. 54), che 
fornisce il numero di secondo trascorsi dalla mezzanotte. Si può provare con i seguenti 
comandi: 


PRINT RND (1), RND (1) 
RANDOMIZE 5 


PRINT RND (1), RND (1) <F5> 
.7055475 .533424 

2.260333E-02 .1790583 

SIN) 


Fornisce il seno dell’angolo di ampiezza x radianti (ricordo che per convertire i gradi in 
radianti si moltiplica il numero di gradi per 3.141592653589/180). Esempio: 


PRINT SIN(.5235988) <F5> 
0.5 


SGN(x) 
Indica il segno di x, fornendo -1 se x è negativo, 0 se x è uguale a zero, 1 se x è positivo. 
Esempio: 


PRINT SGN(-5), SGN(0), SGN(10) <F5> 


cu 0 È 
SQR(x) 
Fornisce la radice quadrata dell'argomento, purché x sia positivo o nullo. Esempio: 
PRINT SQR(144) <F5> 
+2 


QBASIC non dispone di funzioni che forniscano radici di indice superiore a 2 (radici 
cubiche, quarte, ...); tuttavia esse si possono ottenere elevando il radicando a un oppor- 
tuno esponente frazionario (rispettivamente 1/3, 1/4, ...). Ad esempio, la radice cubica di 
8 si può ottenere con il comando 


PRINT 8°(1/3) <F5> 
2 


TAN (x) 
Fornisce la tangente trigonometrica dell’angolo di ampiezza x radianti (ricordo che per 
convertire i gradi in radianti si moltiplica il numero di gradi per 3.141592653589/180). 
Esempio: 


PRINT TAN(45*3.141593/180) <F5> 
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ESPRESSIONI NUMERICHE 


Le variabili, le costanti e le funzioni numeriche possono essere collegate fra loro dagli 
operatori aritmetici indicati in Tabella 8 per formare delle espressioni numeriche, 


secondo le usuali regole algebriche. 


= 
Operatore Operazione 
A Elevamento a potenza 
si Moltiplicazione 
/ Divisione 
\ Divisione intera 
MOD Modulo 
+ Addizione 
- Sottrazione 


Tabella 8 - Operatori aritmetici di QBASIC 


Tra le operazioni indicate, quelle di divisione intera e di modulo possono essere poco 


familiari. 


La divisione intera fornisce il risultato intero della divisione di due interi. 


PRINT 10 \ 3 
3 


<F5> 


Il modulo fornisce il resto della divisione di due interi. Esempio: 


PRINT 10 MOD 3 
il 


<F5> 


Hsempio: 


E da tenere presente che, mentre nella scrittura algebrica un’espressione numerica può 


avere un aspetto bidimensionale (cioè occupare più di una riga), in QBASIC essa va 
scritta in modo unidimensionale (cioè su una sola riga). Ciò si ottiene con un uso oppor- 
tuno delle parentesi (sempre tonde), come mostrano gli esempi di Tabella 9. 


Scrittura algebrica 


(adi 


l 


Scrittura QBASIC 


((1+DAN- DA 


-—b-Vb? — 4ac 


2a 


(-B-SQR(B/72-4*A*C))/(2*A) 


ai 


Tabella 9 - Differenti modi di scrivere un’espressione in algebra e in QBASIC 
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Capitolo 7 


Stringhe di caratteri 


CHE COS’È UNA STRINGA 


Una stringa è una successione continua di caratteri, quali le lettere dell’alfabeto, 1 segni 
di interpunzione e quelli matematici. QBASIC permette di trattare sia costanti sia varia- 
bili di stringa. 


DICHIARAZIONE DI COSTANTI E VARIABILI 
(CONST, DEFSTR, AS STRING) 


Una costante di stringa si può dichiarare in uno dei seguenti modi: 


e Racchiudendo una sequenza di caratteri fra virgolette, come nella seguente istruzione 
PRINT: 


PRINT “Elaborazione del file. Attendere prego” 


Questa è detta “costante di stringa letterale”. 


e Ponendo un nome uguale a una stringa letterale, come nella seguente istruzione CONST: 
CONST Messaggio = “Controllare la stampante” 


Questa è detta “costante di stringa simbolica”. 


Una variabile di stringa si può dichiarare in uno dei seguenti modi: 


e Aggiungendo il suffisso di stringa ($) a un nome di variabile, come ad esempio in: 


LINE INPUT “Scrivi il tuo nome: “; NomeS 


e Usando l’istruzione 


DEFSTR lettera 


che fa considerare stringhe tutte le variabili il cui nome inizi con /effera, a meno che 
esse terminino con uno dei suffissi dei tipi numerici (%, &, !, #). Se ad esempio si 
scrivono le due istruzioni seguenti: 


DEFSTR M 
Messaggio = “Sportello del drive aperto” 


la variabile Messaggio viene considerata di stringa. 


® 


Dichiarando il nome della stringa in un'istruzione 


AS STRING 


come nella seguente: 


DIM Messaggio AS STRING 
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È 


STRINGHE DI LUNGHEZZA VARIABILE E FISSA 
(DIM, RSET) 


de 


Le precedenti versioni del BASIC permettevano di utilizzare solo stringhe di lunghezza 
variabile, che cioè assumevano la lunghezza del numero di caratteri contenuti (da 0 a 
32767). Ad esempio, una variabile così definita 


AS tr LUI 1 2 3 4 74 
risultava lunga 4 caratteri, mentre una così definita 


BS = “123456” 


risultava di lunghezza 6. 
Oltre a mantenere le stringhe di lunghezza variabile, QBASIC dispone anche delle strin- 
ghe di lunghezza fissa, che vengono dichiarate con un'istruzione del tipo 


DIM Messaggio AS STRING * 10 


{che definisce la variabile Messaggio come una stringa di lunghezza 10). 
Se a una stringa di lunghezza fissa si assegna un valore maggiore della sua lunghezza, il 
valore viene troncato alla destra. Si considerino ad esempio le seguenti istruzioni 


) Messaggio AS STRING * 10 
Messaggio = “Sportello del drive aperto” 
PRINT Messaggio <F5> 


Drive aper 


Se a una stringa di lunghezza fissa si assegna un valore inferiore alla sua lunghezza, i 
caratteri mancanti sono riempiti con spazi vuoti, come mostrano le seguenti istruzioni 


DIM Messaggio AS STRING * 10 


Messaggio = “Fine” 
PRINT Messaggio; Messaggio <F5> 
Fine Fine 


Come mostra l’ultimo esempio, i valori assegnati a variabili di lunghezza fissa sono 
automaticamente giustificati sulla sinistra. Se fosse necessario giustificarli sulla destra, 
si impiegherebbe l’istruzione 


RSET 


come mostra il seguente esempio (dove la linea di numeri è stata scritta solo per fornire 
un riferimento visivo) 


DIM Messaggio AS STRING * 10 
RSET Messaggio = “Fine” 
PRINT “1234567890” 
PRINT Messaggio <F5> 
1234567890 
Fine 
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CONCATENAZIONE DI STRINGHE E DI CARATTERI 
(STRING$) 


A 


Le costanti e variabili di stringa possono essere combinate con l’operatore di concatena- 
zione “+”, confrontate con gli operatori di relazione e subire vari tipi di elaborazione 
con le funzioni di stringa. 

Se due stringhe sono combinate con l’operatore “+” la seconda è aggiunta alla prima, 
come mostra il seguente esempio: 


Ii 


AS “capo” 

BS = “stazione” 
CS = AS + BS 
PRINT C$ <F5> 
capostazione 


Dato che la concatenazione non introduce spazi vuoti, se questi servono devono essere 
aggiunti nelle stringhe su cui si opera, ad esempio con definizioni del tipo 


AS a “capo “ 


B$ = “operaio” 
oppure 

AS = “capo” 

B$ = “ operaio” 


n tal modo, la coppia di istruzioni 


C$ = AS + BS 
PRINT C$ 


produce l’uscita 
capo operaio 
Lo stesso effetto si ottiene con ie istruzioni 


DIM A AS STRING * 5 
DIM B AS STRING * 7 
À = capo 

B = operaio 

PRINT A + B 


Per concatenare dei caratteri tutti uguali tra loro, si può usare la funzione 


STRINGS (mm, n) 
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che genera una stringa lunga m caratteri, tutti di codice ASCII (+ pag. 14) n. I caratteri 
presenti sulla tastiera possono essere indicati tra virgolette, anziché attraverso il numero 
n, come nel seguente esempio: 


ASTES = STRINGS(15, “*“) 


In questo caso la stringa di 15 asterischi generata da STRING$ è stata assegnata alla 
variabile ASTE$; un’altra possibilità è quella di stampare la stringa con un'istruzione 
PRINT, come nell’esempio seguente: 


PRINT STRING$(10,64) <F5> 
AEREEERACE 


Per concatenare degli spazi, anziché la funzione STRINGS, si può usare la funzione 


SPACES (n) 


che genera una stringa di n spazi. 


CONFRONTO DI STRINGHE 


Due stringhe possono essere confrontate raccordandole con uno degli operatori di rela- 
zione indicati in Tabella 10 


Operatore Significato 
i uguale 
<> diverso 
< minore 
<= minore o uguale 
maggiore 
maggiore o uguale 


Tabella 10 - Operatori di relazione usati in QBASIC 


Nel confronto fra due caratteri, QBASIC considera “maggiore” quello che ha il codice 
ASCII maggiore. 

Nel confronto fra due stringhe, QBASIC considera i valori ASCI) dei caratteri che si 
corrispondono; il primo carattere in cui le due stringhe differiscono determina il loro 
ordine alfabetico. Ad esempio, le due stringhe “autore” e “autolavaggio” hanno uguali i 
primi quattro caratteri; poiché il valore ASCII di “°° è maggiore di quello di “Y”, risulta 


gurore. > autolavaggio 


Se tutti i caratteri di due stringhe si corrispondono, ma una è più lunga, essa viene consi- 
derata maggiore, per cui risulta, ad esempio: 


“aaaazaa” > “aaa” 
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Osserviamo che nella Tabella dei codici ASCII di pag. 14 le lettere maiuscole precedo- 
no le minuscole, per cui risulta, ad esempio, 


TASCIIT. < ascii” 


Il confronto di due stringhe è impiegato di solito per costruire espressioni booleane (che 
vedremo a pag. 67) caratterizzate da un valore “vero” o “falso”. Così, ad esempio, le 
espressioni 


“U abc ” pa #74 abc “" 
"“aaaaaa” > “aaa” 


sono entrambe vere. 


Nota. Nel confronto fra due stringhe, gli spazi iniziali o finali risultano significativi. 
Perciò, ad esempio, la stringa 


“” "i prova” 


risulta minore della stringa 


st prova sr 
dato che lo spazio ha un codice minore di “p”. Invece la stringa 
“prova » 


risulta maggiore della stringa 


“prova n 


Di questo fatto è bene tener conto quando si confrontano stringhe di lunghezza fissa 
(che possono contenere spazi alla fine) e stringhe di lunghezza variabile, come vedremo 
al successivo paragrafo, a proposito della funzione RTRIM$. 
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FUNZIONI DI STRINGA 


Le funzioni di stringa sono quelle che forniscono come risultato una stringa di caratteri. 
Hanno come argomento una variabile o una costante di stringa, che negli esempi che 
seguono è indicata con af, oppure un numero che trasformano in stringa. 


ASC(a$), CHR$(r) 
Sono due funzioni l’una inversa dell’altra: ASC fornisce il codice ASCII del primo 
carattere della stringa a$. Esempio: 


PRINT ASC (“0”) <F5> 
81 


CHR$ converte il numero intero n nel carattere che gli corrisponde secondo il codice 
ASCII. Esempio: 


PRINT CHR$(81) <F5> 
Q 
HEX$(), OCT$(x) 
HEX$(x) fornisce una stringa che rappresenta la conversione nel sistema esadecimale 


dell’espressione numerica x. 
OCT$(x) fornisce una stringa che rappresenta la conversione nel sistema ottale di x. Se x 
ha un valore decimale, viene arrotondata a un intero. Esempio: 


PRINT HEXS(32), OCTS(16) <P5> 
200 20 
INSTR 


Un'operazione molto frequente che si compie sulle stringhe è la ricerca di una (sotto) 
stringa all’interno di un’altra stringa. La funzione 


INSTR(a41$, a2$) 


dice se la stringa a2$ è contenuta nella stringa a/$, fornendo la posizione del primo 
carattere di a/$ (se c’è) in cui comincia l’identità. Se invece 42$ non è contenuta in a/$, 
INSTR fornisce il valore 0. Esempio: 


A1$ = “capostazione” 

A42$ = “posta” 

PRINT INSTR(AIS, A25) <F5> 
3 


In questa variante dalla precedente forma sintattica 


INSTR(inizio, alS, a25) 
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la funzione INSTR permette invece di indicare da dove si vuole che inizi la ricerca in 
al. Così si avrebbe, ad esempio: 


A1$ = “capostazione” 

42$ = “posta” 

PRINT INSTR(10, A1S, A2S) <F5> 
0 


dato che la stringa “posta” non compare dopo la decima lettera di “capostazione”. Questa 


possibilità è utile per trovare ogni ricorrenza di a2$ all’interno di a/$, e non solamente la 
prima, come vedremo in un esempio nel paragrafo “Cicli DO...LOOP” (+ pag. 71) 


LCASE$, UCASE$ 

Può essere talvolta necessario cambiare le lettere maiuscole in minuscole, o viceversa, 
come nella ricerca di una particolare successione di caratteri in un file lungo; ad esem- 
pio, si può volere che le parole FINE, fine e Fine siano considerate le stesse. Ciò si 
ottiene con le funzioni LCASE$ e UCASE$, che eseguono le seguenti conversioni: 


* LCASES fornisce una copia della stringa suo argomento, nella quale tutte le lettere 
maiuscole sono convertite in minuscole. 

e UCASB$ fornisce una copia della stringa suo argomento, nella quale tutte le lettere 
minuscole sono convertite in maiuscole. Esempio: 


Tit$s = “Tabella ASCII” 
PRINT TItSs 
PRINT LCASES(Tits) 

PRINT UCASES(TItS) <F5> 
Tabella ASC 
tabella ascii 
TABELLA ASC 


LEFT$, RTRIM$ 
Queste due funzioni forniscono i caratteri di una stringa a partire dalla sua sinistra: in 
particolare la funzione 


LEFTS (as, n) 


fornisce gli n caratteri più a sinistra della stringa a$, mentre la funzione 
RTRIMS(a5) 


fornisce la parte sinistra della stringa a$, dopo averne eliminato gli eventuali spazi fina- 
li. Esempio: 


AS = “ferrovia ci 

PRINT LEFTS(AS, 5) 

PRINT RTRIMS(AS) <F5> 
ferro 

ferrovia 


SI 


La funzione RTRIMS$ è utile per confrontare stringhe di lunghezza variabile e fissa: se 
ad esempio si scrivono le seguenti istruzioni 


DIM Strinfis AS STRING * 10 
Strinfis US 
Strinvar “Si” 


Il 


le due stringhe Strinfis e Strinvar risultano diverse (dato che la prima ha 10 caratteri e la 
seconda 2), mentre RTRIMS$(Strinfis) risulta uguale a Strinvar. 

Le stesse operazioni di LEFT$ e RTRIM$, ma a partire dalla destra, sono svolte dalle 
funzioni RIGHT$ e LTRIM$. 


LEN (a$) 

Fornisce il numero di caratteri della stringa af. Esempio: 

PRINT LEN (“VIA”) <F5> 
3 

MID$ 


Permette di estrarre un numero qualsiasi di caratteri da un punto qualsiasi di una stringa. 
La forma sintattica è: 


MIDS (as, inizio, n) 


dove a$ è la stringa di partenza, inizio è la posizione del carattere da cui inizia l’estra- 
zione, n è il numero di caratteri estratti. Esempio: 


PRINT MID$S (“Capostazione”, 3, 5) <F5> 
posta 


RIGHT$, LTRIM$ 

Queste due funzioni forniscono i caratteri di una stringa a partire dalla sua destra; in 
particolare la funzione 

RIGHT$ (as, n) 


fornisce gli n caratteri più a destra della stringa a$, mentre la funzione 


LTRIMS (as) 


fornisce la parte destra della stringa a$, dopo averne eliminato gli eventuali spazi inizia- 
li. Esempio: 


AS = “ferrovia” 

PRINT RIGHTS (AS, 3) 

PRINT LTRIMS (AS) <F5> 
via 

ferrovia 
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STR$(r), VAL(G$) 
QBASIC non consente di assegnare un'espressione di stringa a una variabile numerica, 
né un’espressione numerica a una variabile di stringa: infatti espressioni del tipo 


Lo 
ASSE 


Dan 
ode 
Il 


produrrebbero un messaggio di errore. 
Si possono però eseguire le necessarie conversioni usando le funzioni STR$ e VAL, 
Precisamente la funzione 


STRS (n) 


trasforma il numero n in stringa, in modo che possa essere impiegato in qualsiasi opera- 
zione con le stringhe. Esempio: 


AS = STR$ (5) 
PRINT “MI” + AS <F5> 
MI _ 5 


Osserviamo che STR$ inserisce lo spazio iniziale riservato da QBASIC per i numeri 
positivi (vedi paragrafo “Istruzione PRINT”, a pag. 26); questo può essere eliminato 
usando l'istruzione PRINT USING (vedi paragrafo “Visualizzazione di dati formattati”, 
a pag. 27) oppure la funzione LTRIM$, come nel seguente esempio: 


AS = STR$ (5) 
PRINT “MI” + LTRIMS (AS) <P5> 
MI5 


Invece la funzione 
VAL (a$) 


trasforma la stringa a$ in numero, esaminandola a partire dal primo carattere e conti- 
nuando la conversione fino a che trova caratteri riconoscibili come numeri; se. a$ inizia 
con un carattere non numerico, il valore fornito è 0. Esempio: 


PRINT VAL (“MI20121”), VAL (“14.07.1789”) <F5> 
0 14 


Nota. QBASIC dispone di altre funzioni che eseguono conversioni di numeri in stringhe 
(CV) e viceversa (MK), ereditate dalle versioni precedenti del BASIC, che le richiede- 
vano per operazioni con file ad accesso casuale (+ pag. 135). Esse sono illustrate nel 
paragrafo “Aggiunta di dati nelle precedenti versioni di BASIC” (> pas. 140), e tutta- 
via non sono più necessarie se nella definizione del record di un file ad accesso casuale 
si utilizza l'istruzione TYPR...END TYPE (illustrata al paragrafo “Definizione del cam- 
po del record”, a pag. 137). 
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FUNZIONI VARIE 


DATE$, TIME$ 
Sono due funzioni prive di argomento, che forniscono rispettivamente la data e lora 
corrente del sistema, sotto forma di stringa. Esempio: 


PRINT DATES 

PRINT TIMES <F5> 
02-07-1994 
09:12:45 


Se si deve cambiare la data del sistema, si usa l’omonima istruzione DATES, secondo il 
formato dell’esempio seguente: 


DATES = “01-01-90” 


Se si deve cambiare l’ora del sistema, si usa l'omonima istruzione TIME$, secondo uno 
dei formati degli esempi seguenti: 


uu MES = 411” 
TIMES "11:24” 
TIMES "11:24:39" 


(se i minuti o i secondi non sono impostati, vengono posti automaticamente uguali a 
Zero). 

La data e l’ora del sistema sono aggiornate continuamente durante le sessioni di lavoro 
e, negli attuali personal computer, anche a macchina spenta, grazie a una batteria interna 
che alimenta l'orologio o clock di sistema. 


TIMER 
È una funzione priva di argomento, che fornisce il numero di secondi trascorsi dalla 
mezzanotte. Esempio: 


TI] 


PRINT TIMES 


PRINT TIME <F5> 
10:00:00 
36000 


Può essere usata per cronometrare l’esecuzione di una parte o di un interno programma, 
oppure come argomento dell’istruzione RANDOMIZE per generare un numero casuale 
(4 pag. 39). 
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IMMISSIONE DI DATI DALLA TASTIERA 


La tastiera costituisce il principale dispositivo d’immissione di dati in un computer (altri 
dispositivi sono il mouse, lo scanner o un file di dati). QBASIC possiede due istruzioni - 
INPUT, LINE INPUT - e due funzioni - INPUT$, INKEYS - che permettono di 
immettere dati da tastiera, e quindi assegnarli come contenuto a delle variabili (mentre 
le istruzioni LET e CONST viste al paragrafo “Assegnazione di valori da programma”, 
(+ pag. 19), e le istruzioni READ...DATA che vedremo nel prossimo paragrafo 
“Lettura e assegnazione di valori”, (+ pag. 98) eseguono la stessa assegnazione da 
programma). 


INPUT 
Una prima istruzione che permette di raccogliere i dati digitati sulla tastiera e assegnarli 
a una o più variabili è 


INPUT [;] [messaggio;] variabile [, variabile] 


dove il messaggio è una costante di stringa che informa l’utente sul tipo di dato da 
immettere. Come esempio di funzionamento dell’istruzione INPUT si può eseguire il 
seguente programma: 


INPUT “Come ti chiami"; Nome$ 
(INPUT “Quanti anni hai": Anni. ©' '! 
PRINT “Ciao “; NomeS; *,. tu hai circa”; Anni * 365; “giorni” 


Esso visualizza il messaggio “Come ti chiami?” e sospende l’esecuzione fino a che 
l’utente batta dei tasti seguiti da <Invio>; questo dato viene assegnato alla variabile 
Nome$. Compare poi il messaggio “Quanti anni hai” e quindi un messaggio che comu- 
nica all’utente la sua età espressa in giorni. 

I dati che l'utente immette devono essere dello stesso tipo e numero delle variabili pre- 
senti nell'istruzione INPUT, altrimenti viene visualizzato un messaggio di errore. Per 
questa ragione è opportuno inserire in ogni caso nell’istruzione INPUT una variabile di 
stringa, ed eventualmente convertire il suo valore in numero, scrivendo ad esempio: 


INPUT “Quanti anni hai”; Anni$: Anni = VAL(Anni$s) 


Se in una singola istruzione INPUT compaiono più variabili, l'utente deve immettere i 
loro valori separandoli con “,” (e terminando al solito con <Invio>). Per questa ragione 
non è possibile immettere una stringa che contenga delle virgole (che verrebbero inter- 
pretate come separatori fra i dati immessi), mentre si possono immettere virgole e spazi 
vuoti solo racchiudendoli tra virgolette. 

Se dopo la parola INPUT è inserito un “;” il cursore non avanza a linea nuova dopo 
l'immissione dei dati da parte dell’utente; quindi il successivo messaggio visualizzato 


compare sulla stessa linea. Si può provare eseguendo le due linee seguenti: 


INPUT. ; “Nome”, NS 
INPUT “ Cognome”, CS 


Osserviamo che il “” prima della variabile fa comparire un “?” dopo il messaggio; se il 
66,73 N x 


è sostituito da una “,” il ‘“?”’ è soppresso. 
E possibile dare un aspetto più “professionale” alla richiesta di dati che compare sul 
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video facendo seguire al messaggio una barra luminosa, che indica la lunghezza massi- 
ma consentita per la variabile. Il programma che segue visualizza dopo la richiesta 
“Nome” una barra lunga 10 caratteri. 


(CLS _ 

ERINP “Nome: “+ STRINGS(10, 59) 
N... 
INPUR ", Nomes 

LOCATE 2, 7 + LEN(Nomes) | _ °___—_— 

PRINT SPACES(1O - LEN(Nome$)) 


LINE INPUT 

Se un programma deve assegnare a una variabile linee di testo che comprendono virgole o 
spazi vuoti iniziali o finali, e si vuole evitare all’utente il compito di racchiuderli tra virgo- 
lette, si usa l'istruzione LINE INPUT. Essa non visualizza un ‘“?”, e accetta in ingresso 
tutti i caratteri che si battono fino alla pressione di <Invio>. La forma sintattica è 


LINE INPUT [:] [messaggio;] variabile 


INPUT$() 
A differenza delle istruzioni INPUT e LINE INPUT, che assegnano a uma variabile il 
dato immesso dall'utente quando questi preme il tasto <Invio>, la funzione INPUT&(1) 
legge n caratteri battuti sulla tastiera (compresi i tasti di controllo, quali <Esc>, <BkSp> o 
<Invio>), e li assegna a una variabile. Ad esempio, se in risposta al seguente programma: 


'Prova$ = INPUTS(3) 
DRINI Provas 


si batte tre volte il tasto <Esc>, lo schermo visualizza 


LT 


cioè tre volte il simbolo associato al codice ASCII 27 del tasto <Esc>. 


INKEY$ 
Quando QBASIC incontra un’espressione che contiene la funzione INKEY$, controlla 
se l’utente ha digitato un tasto a partire da: 


° l’ultima volta che è stata usata un’espressione contenente INKEY$, oppure 

° l’inizio del programma, se INKEY$ è usata per la prima volta. 

Se in questo periodo non è stato digitato alcun tasto, INKEY$ fornisce una stringa vuota 
(‘°), altrimenti una stringa di Î byte costituita dal carattere digitato. 

A differenza di INPUT, INKEY$ non visualizza sullo schermo né un “?” né il carattere 
digitato; inoltre quest’ultimo è assegnato alla stringa appena si preme il tasto, senza 
bisogno che si confermi con <Invio>. Ciò velocizza l’uso dei programmi nei quali 
l'utente deve digitare un carattere in risposta a un messaggio sullo schermo, ma richiede 
che INKEY$ sia inserito all’interno di un ciclo, che sospende l'esecuzione del program- 
ma fino a che l’utente prema un tasto. 
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A questo proposito le due tecniche più diffuse sono rappresentate dai frammenti di pro- 
gramma seguenti: 


PRINT “Premere un tasto qualsiasi per continuare” 
10 AS = INKEYS: IF AS = “* THEN 10 
PRINT “Fine” 


che QBASIC mantiene dalle precedenti versioni (e infatti richiede un numero di linea 
nella seconda istruzione), e: 


PRINT “Premere un tasto qualsiasi per continuare” 
DO 
LOOP UNTIL INKEYS <> 4” 
PRINT “Fine” 


che invece impiega la nuova struttura DO...LOOP, che sarà discussa nel successivo 
paragrafo “Cicli DO...LOOP” (4 pag. 71). 


È anche possibile far ripartire il programma premendo un tasto specificato, scrivendo, 
ad esempio: 


PRINT “Premere <ESC> per continuare” 
DO 
LOOP UNT 


pal 


NKEYS = CHR$(27) 


A differenza delle altre parole chiave discusse in questo paragrafo, INKEY$ permette 
che il programma esegua altre elaborazioni mentre è in attesa dell’ingresso da tastiera, 
come si può verificare inserendo, tra le istruzioni DO e LOOP scritte in precedenza, una 
coppia di istruzioni del tipo: 


PRINT K 
K = K4+ 1 


Un esempio di utilizzo di alcune delle funzioni illustrate nei paragrafi precedenti è for- 
nito dal seguente programma CALCOLATEMPO, che può essere impiegato per calco- 
lare il tempo impiegato dal computer per compiere una determinata elaborazione. Il pro- 
gramma chiede all’utente, tramite l’istruzione INPUT, di scrivere l’ora iniziale, che vie- 
ne assegnata alla variabile T1$ e l’ora finale, assegnata a T2$. 

Quindi trasforma queste due stringhe in numeri decimali, per BORE eseguire la diffe- 
renza, e di nuovo in una stringa nel formato hh/mm/ss. 

Per controllare di avere scritto esattamente il programma potete provare a immettere dei 
valori di prova e confrontare la risposta fornita dal computer con quella attesa. 

Questa è anzi una pratica che andrebbe seguita ogni volta che si realizza un nuovo pro- 
gramma. 
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[REM ***CALCOLATEMPO*** 

CLS i. i 

0 INPUT “Ora. iniziale (hh/mm/ss)"*; T1S- 

PUT finale (hh/mm/ss) “ o. e... 
EN PRINT, “Riprova! cold. ___. 


L Livi Vonpo. impiegato ii 
i... secondi. 0 


IL PROGRAMMA: PRIMI CONCETTI 


I diversi esempi di istruzioni viste finora avevano la caratteristica comune di far esegui- 
re al computer una serie di operazioni secondo un ordine rigorosamente sequenziale. 
Questo modo di operare sfrutta però solo una minima parte delle potenzialità di un com- 
puter, per cui si può dire che chi si limitasse a usare QBASIC per scrivere comandi del 
tipo PRINT EXP(2) o PRINT 10 MOD 3, userebbe certamente uno strumento sovradi- 
mensionato rispetto alle proprie esigenze. 

Infatti la potenza e la versatilità di un computer si manifestano nell’esecuzione ripetuta - 
anche centinaia o migliaia di volte - di cicli di operazioni (argomento che vedremo nel 
capitolo “Strutture cicliche”, a pag. 61), oppure nella possibilità di fargli prendere una 
decisione sulle istruzioni da eseguire (nel capitolo “Strutture di decisione”, a pag. 79), in 
base ai risultati di operazioni eseguite in precedenza. Queste prestazioni si ottengono 
scrivendo un programma, cioè un elenco ordinato e organizzato di comandi che descri- 
vono il procedimento elaborativo (0 algoritmo) desiderato, in una forma comprensibile 
al computer. I comandi di un programma sono detti anche istruzioni, e possono essere 
preceduti da un numero intero o da una parola detto etichetta di riga; l'etichetta è utile 
se nel corso del programma si dovrà fare riferimento a una determinata riga di istruzio- 
ni. Una riga di programma può contenere più istruzioni, separate con due punti. Ad 
esempio, è equivalente scrivere: 


LOCATE 12, 40 
PRINT “Centro dello schermo” 
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oppure: 


LOCATI 


Gi 


12, 40: PRINT “Centro dello schermo” 


COMMENTI IN UN PROGRAMMA (REM) 


5 spesso utile inserire in un programma delle linee di commento, per dargli un titolo 0 
per far capire a chi legge il listato il tipo di operazione eseguito in quel punto. A questo 
fine basta far precedere il testo del commento dalla parola chiave 


RI 


na 


M 


che ha l’effetto di far ignorare a QBASIC tutti i caratteri che seguono sulla sua riga (si 
dice anche che REM è un’istruzione non eseguibile). 

I commenti si possono anche inserire dopo le istruzioni di una riga di programma, 
facendoli precedere da un apice (°). 

È comunque buona pratica non eccedere nell’uso dei commenti, per non sprecare inutil- 
mente spazio di memoria. 


FINE DI UN PROGRAMMA (END) 


Se in un programma è presente l’istruzione 


HH 


ND 


questa è l’ultima eseguita, e le eventuali istruzioni che seguono sono ignorate. L’istru- 
zione END può essere impiegata per far terminare l’esecuzione di un programma al 
verificarsi di un determinato evento, come nel caso dell’istruzione 


Di ey TH 


n] 


N END 


che vedremo nel capitolo “Strutture di decisione” (+ pag. 79). 


Sì, 


Capitolo 8 


Strutture cicliche 


CHE COS’È UN CICLO 


La logica di un programma, in assenza di istruzioni che ne controllino il flusso, procede 
attraverso le sue istruzioni da sinistra a destra, o dall’alto al basso. Anche se è possibile 
scrivere programmi molto semplici con questo flusso unidirezionale, la maggior parte 
della potenza e utilità dei linguaggi di programmazione deriva dalla loro capacità di 
cambiare l’ordine di esecuzione delle istruzioni con strutture cicliche e con strutture di 
decisione (che vedremo nel prossimo capitolo). 

Le strutture cicliche fanno eseguire ripetutamente a un programma un blocco di istru- 
zioni (il ciclo), o per un determinato numero di volte, o fino a che una certa condizione 
(la condizione di ciclo) risulti vera o falsa. Vedremo dapprima le strutture FOR...NEXT 
e WHILE...WEND, già presenti nelle precedenti versioni del BASIC, quindi la struttura 
DO...LOOP, che QBASIC ha ripreso da altri linguaggi di programmazione. 


CICLO FOR...NEXT 


Il ciclo FOR...NEXT ripete le istruzioni contenute al suo interno per un numero deter- 
minato di volte, contando da un valore iniziale a uno finale aumentando o diminuendo il 
contenuto di una variabile detta contatore di ciclo. Il ciclo continua la sua esecuzione 
fino a che il contatore non ha raggiunto il valore finale. 

La sintassi dell’istruzione è: 


FOR contatore = inizio TO fine [STEP passo] 


NEXT [contatore] 


dove: contatore è una variabile numerica, che assume inizialmente il valore dell’espres- 
sione inizio; alla fine di ogni ciclo, l'istruzione NEXT incrementa o decrementa il valo- 
re del contatore del passo indicato (che può essere un numero intero positivo o negati- 
vo); se non è presente l’opzione STEP, il valore di passo è posto automaticamente ugua- 
le a 1. Il valore del contatore è quindi confrontato con fine e il ciclo ha termine se si 
verifica una di queste due circostanze: 


< il ciclo conta in avanti (il passo è positivo) e il contatore è maggiore di fine 
® il ciclo conta all’indietro (il passo è negativo) e il contatore è minore di fine. 


Ad esempio, il programma 


FOR I% = 1 TO 6. 
PRINT 1%, IS 
NEXT 1% 
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produce la seguente uscita 


1 1 
2 4 
3 9 
4 16 
5 25 
6 36 


La Figura 11 illustra la logica dei ciclo FOR...NEXT quando il valore del passo è positi- 
vo, la Figura 12 quando il valore del passo è negativo. 


| Inizio del ciclo 


conitatore=inizio 


Esegui le 
istruzioni 
del ciclo 


“il contatore N 
— è maggiore 
— di fine? 7” 


contai.=contat.+1 
oppure: 
contat.=coniai.+passo 


Figura II - Logica del ciclo FOR...NEXT con passo positivo 


Le istruzioni FOR...NEXT eseguono sempre un test all’inizio, cosicché Il ciclo non vie- 
ne eseguito se si verifica una delle seguenti condizioni: 
° il passo è positivo e il valore di inizio è maggiore di quello di fine. Esempio: 


FOR I% = 10 TO 9 


oO 


NEXT I 


° il passo è negativo e il valore di inizio è minore di quello di fine. Esempio: 


FOR I% = -10 TO -9 STEP .1 


NEXT 1% 
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Inizio del ciclo 


contatore=inizio 


Varia il contatore: 

contait.=contat.-1 

| oppure: | 
coniai.=contat.-passo 


Esegui le 
>| istruzioni 
del ciclo 


il contatore © 
è maggiore È 
difine? 27 


Fine del ciclo 


Figura 12 - Logica del ciclo FOR...NEXT con passo negativo 


Annidamento di cicli 


Un programma QBASIC può contenere più cicli FOR...NEXT l’uno dentro l’altro 
(annidamento di cicli), che tuttavia non si devono “intersecare”. Quindi si dovrà chiu- 
dere per primo l’ultimo ciclo che è stato aperto, poi il penultimo e così via. In altre paro- 
le, il seguente annidamento è corretto 


mentre 


ù 


— FOR 


> NEXT I 


[$ = 1 TO 10 
FOR J% = -5 TO 0 


il seguente non è corretto 
e— FOR I% = 1 TO 10 
+ FOR J% = -5 TO 0 
EXT 1% 
> NEXT J% 


Se tutti i cicli annidati hanno lo stesso punto finale, possono essere chiusi da un'unica 
clausola NEXT. Questa dovrà contenere l’elenco dei contatori dei cicli a partire da quel 
lo più interno a quello più esterno. Pertanto i due programmi 


FOR 
FO 


Ixz-=1 102. 
Rd& = 4 10.5 


È 


NEXT J$% 
NEXT 1% 


RINT I%, d$ 
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FOR 1% = 1 TO 2 
FOR J% = 4 TO 5 
PRINT I%, J$ 

NEXT da, 1% 


produrranno la stessa uscita, e cioè 


2 
2 


U 5» U 5 


Naturalmente, se si usa una clausola NEXT distinta per terminare ciascun ciclo, il 
numero delle clausole NEXT deve essere uguale a quello delle clausole FOR. 

Nella clausola NEXT non è obbligatorio indicare il contatore, tuttavia, nel caso in cui si 
chiudano più cicli annidati con altrettante clausole NEXT, l’indicazione del contatore 
può essere di aiuto per capire in quale ciclo ci si trovi. 


Uscita da un ciclo FOR...NEXT con EXIT FOR 


Talvolta può essere necessario uscire da un ciclo FOR...NEXT prima che il contatore 
raggiunga il suo valore finale. Ciò si ottiene con l'istruzione EXIT FOR, come avviene 
nel seguente programma 


FOR I$% = 1 TO 130000. 

| PRINT SOR(1%) _ùùoy__°0_ 
de dt 0 TREN Fidi 
NEXT. ta. 1. 


Esso visualizza le radici quadrate dei primi 30000 interi, e si ferma quando si preme un 
tasto qualsiasi. 

Un ciclo FOR...NEXT può avere un numero qualsiasi di istruzioni EXIT FOR, situate 
in punti qualsiasi. 

EXIT FOR ha effetto solo per il più piccolo ciclo FOR...NEXT in cui si trova. Ad 
esempio, se si preme un tasto mentre vengono eseguiti i seguenti cicli annidati 


FOR 1% = 1 TO 100 
FOR J& - 1TO 100. 
| PRINT 1%/J% 


IF INKEv$. <> #4 THEN EXIT FOR 
NEXT 3% ])oyo0oÒ 


NEXT 1% 


il programma esce dal ciclo interno, ma continua a eseguire quello esterno, finché il 
contatore 1% non ha raggiunto il valore finale. 
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PAUSA IN UN PROGRAMMA CON FOR...NEXT 


Per inserire una pausa nell’esecuzione di un programma si può usare un ciclo “vuoto” 
FOR...NEXT del seguente tipo 


de 


FOR I%3 = 1 TO 10000: NEXT 


Questo metodo va bene per pause brevi, o che comunque non debbano avere una durata 
esatta. Tuttavia differenti computer, differenti versioni di BASIC o differenti opzioni di 
compilazione possono far variare ampiamente la durata della pausa. Una tecnica miglio- 
re si basa sul ciclo DO...LOOP, come vedremo nel paragrafo “Pausa in un programma 
con DO... LOOP” (+ pag. 122). 


ESPRESSIONI BOOLEANI 


Le altre strutture cicliche di QBASIC (WHILE... WEND e DO...LOOP) nonché le strut- 
ture di decisione utilizzano le espressioni booleane (0 logiche), cioè delle espressioni 
che possono essere o “vere” o “false”, e che quindi è opportuno esaminare a questo pun- 
to. Nella sua forma più semplice, un’espressione booleana è costituita da due variabili 
raccordate da uno degli operatori di relazione già visti al paragrafo “Confronto di strin- 
ghe” (+ pag. 48). Ad esempio, X > Y è un’espressione booleana se alle variabili X e Y 
sono stati assegnati in precedenza dei valori, cosicché si possa dire se essa è vera o fal- 
sa. In un’espressione booleana possono comparire anche due variabili di stringa: in tal 
caso “minore” e “maggiore” si riferiscono all’ordine alfabetico, nel senso di “precede” e 
“segue”. Così, ad esempio, l’espressione “alto” < “basso” è vera, perché la parola “alto” 
precede in ordine alfabetico la parola “basso”. 


©. 


OPERATORI BOOLEANI 


Due o più espressioni booleane del tipo visto si possono combinare tra loro per mezzo 
degli operatori booleani (o logici) 


AND OR XOR IMP. EOV 


per formare espressioni booleane più complesse. Questi operatori sono caratterizzati dal 
tipo di risultato che forniscono (vero o falso) quando collegano due espressioni boolea- 
ne (a loro volta vere o false). I loro nomi e comportamenti sono riassunti in Tabella II. 


operatore nome produce un’espressione vera 
se collega due espressioni... 


AND congiunzione entrambe vere 
OR disgiunzione delle quali almeno una sia vera 
XOR OR esclusivo delle quali solo una sia vera 
MP implicazione entrambe vere, o entrambe false, 
o falsa la 1? e vera la 2? 
HOV equivalenza entrambe vere o entrambe false 


Tabella 11 - Operatori booleani usati in OBASIC 
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Vediamo alcuni esempi. 


L'espressione 
(X >= 0) AND (X <= 5) 


è vera se X è compreso tra 0 e 5, estremi inclusi. 


L'espressione 
(A < 0) OR (A > 0) 


è vera se A è diverso da 0. 


L'espressione 


{B >= 0) XOR (B > 5) 


è vera se B è compreso fra 0 e 5, estremi inclusi (in quanto allora risulta B >= 0 ma non 
B>S). 


e espressioni 


(5 = SQR(25)) IMP (3 = SOR(9)) 
(4 = SOR(25)) IMP (5 = SOR(9)) 
(4 = SOR(25)) IMP (3 = SOR(9)) 


sono tutte vere. 


Le espressioni 
(“rosso” > “rossa”) EOV (10 > 5) 
{10/2 = 4) EOV (“alfa” > “beta”) 


sono entrambe vere. 


Negli esempi precedenti le parentesi non sono in realtà necessarie, in quanto QBASIC 
valuta gli operatori di relazione prima degli operatori logici; esse tuttavia aiutano a ren- 
dere più leggibile un'espressione booleana complessa. 


Nota. OBASIC assegna i valori numerici -1 e 0 alle espressioni booleane vere e false, 
cioè: 


FALSO @« 0 
VERO « -1 


come si può verificare con i semplici comandi mostrati in Tabella 12. 


il comando... produce l’uscita... 
PRINT 10/2=5 -1 
PRINT 5> 10 0 


Tabella 12 - Valori numerici di espressioni booleane 
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Esiste infine l'operatore logico 
NOT 


che applicato a un’espressione booleana ne muta il valore da “vero” in “falso” e vice- 
versa. 


Dal punto di vista tecnico, NOT inverte ogni bit della rappresentazione binaria del suo 
operando, cioè cambia gli “0” in “1” e gli “1” in “0”. Perciò, dato che il valore 0 (corri- 
spondente a falso) è memorizzato internamente come sequenza di sedici bit 0, NOT 0 
(corrispondente a vero) è memorizzato internamente come sequenza di sedici bit 1; cioè, 
riassumendo, 


FALSO «> 0000 0000 0000 0000 
VERO (=NOT FALSO) «1111 1111 LIHT 111 


el metodo del complemento a 2, che QBASIC usa per memorizzare gli interi, sedici 
bit 1 rappresentano il valore -1. 


ota. QBASIC fornisce il valore -1 quando valuta un’espressione booleana vera, e con- 
sidera vero ogni valore diverso da zero, come risulta dal seguente esempio. 


[== masso È 
il programma... produce l’uscita... 
INPUT “Scrivi un numero” Scrivi un numero : 2 
IF X THEN PRINT X; “ è vero” 2 è vero 
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CICLO WHILE... WEND 


Il ciclo FOR...NEXT è utile quando si conosce a priori il numero esatto di volte che 
l’iterazione va ripetuta. Se invece non si può prevedere tale numero, ma si conosce la 
condizione che dovrà porre fine al ciclo, si usa il ciclo WHILE...WEND. Esso infatti 
ripete le istruzioni contenute al suo interno fino a che la condizione di ciclo si mantiene 
vera, anziché in base al valore di un contatore. 

La sintassi dell’istruzione è 


WHILE condizione 


WEND 


dove condizione è una qualsiasi espressione booleana (+ pag. 67), la cui verità deter- 
mina l'esecuzione del ciclo. 
Ad esempio, il programma 


INPUT RS ,:''‘‘’./..6. 
WHILE RS <> ugr AND _ <> SN" n 
PRINT “La risposta. deve essere So o) cnr - 
INPUT S. - 
WEND 


richiede di immettere una risposta consistente in una “S” o una “N”, e visualizza il 
messaggio indicato nella riga PRINT se si immette una risposta diversa. 
La logica del ciclo WHILE... WEND è illustrata in Figura 13 


| Inizio del ciclo | 


| Valuiala 
| condizione 
i delcicio 


Esegui le 
istruzioni 
del ciclo 


la n 
condizione è ___ 


Figura 13 - Logica dei cicli WHILE...WEND e DO WHILE...LOOP 


70 


CICLI DO...LOOP 


In maniera analoga al ciclo WHILE...WEND, anche il ciclo DO...LOOP esegue un 
blocco di istruzioni un numero di volte non stabilito a priori, dato che l’uscita dal ciclo 
dipende dalla verità di una condizione. 

Tuttavia, a differenza di WHILE...WEND, il ciclo DO...LOOP permette di valutare sia 
la verità sia la falsità della condizione, e di porre la verifica sia all’inizio che alla fine 
del ciclo; esso possiede quindi quattro forme sintattiche. 


La prima forma sintattica, con verifica all’inizio del ciclo, è: 


DO [WHILE condizione] 


[EXIT DO] 
LOOP 


dove condizione è una qualsiasi espressione logica, la cui verità determina l'esecuzione del 
ciclo. La logica è pertanto la stessa del ciclo WHILE...WEND (già illustrata in Figura 13). 
Un esempio è costituito dal seguente programma 


INPUT “Scrivi un carattere e avral il suo codice. ASCII”, cars . 
DO WHILE (carî <> #") 

- PRINT “Il codice ASCII di “; cars; “ è > ASC (cars) 
INPUT. “scovi un' ‘altra lettera (o iù ber finire)", cars. 
LOOP c_ 


Esso chiede di scrivere una lettera e ne fornisce il codice ASCII (+ pag. 14); il pro- 
gramma ha termine quando si preme il tasto <Invio>. 


La seconda forma sintattica, con verifica all’inizio del ciclo, è: 


DO [UNTIL condizione] 


L) 


[EXIT DO] 
LOOP 


dove condizione è una qualsiasi espressione logica, la cui falsità determina l'esecuzione 
del ciclo (vedi Figura 14). 
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| Inizio del ciclo | 


condizione 
del ciclo 


a_ N 
<_ condizione è > 
x vera? 2 


istruzioni 
del ciclo 


[ Fine del ciclo | 


Figura 14 - Logica del ciclo DO UNTIL...LOOP 


Un esempio è costituito dal seguente frammento di programma: 


DO. UNTIL INKEYS <> “” 
LOOP 


Esso è un ciclo vuoto, che sospende l’esecuzione del programma in cui è inserito fino a 
che non venga premuto un tasto (cioè fino a che risulti falsa la condizione ‘è stato pre- 
muto un tasto”). 

È di solito preceduto da un’istruzione che visualizza sullo schermo un messaggio del 
tipo: “Premere un tasto qualsiasi per continuare”. 


La terza forma sintattica, con verifica alla fine del ciclo, è: 
DO 
[EXIT DO] 


LOOP [WHILE condizione] 


dove condizione è una qualsiasi espressione logica, la cui verità determina la ripetizio- 
ne del ciclo (vedi Figura 15). 


2 


| inizio del ciclo 


istruzioni. {TT 
del ciclo 


i Valuiala 
| condizione 
del ciclo 


| 


< condizione è > 
= vera? 27° 


o a 


: Fine delcicio | 


Figura 15 - Logica del ciclo DO...LOOP WHILE 


Un primo esempio è costituito dal seguente programma: 


RANDOMIZE TIMER. 


numcass = INT(RND*100) #1 
- INPUT “Che numero ho pensato”; numuten$ 


PRINT “Troppo alto, riprova" 
ENDIS.O___nnnn 
IF (Mmumuten& < numcas%) THEN 
PRINT “Troppo basso, riprova” . 
LOOP WHILE (numcas$ <> numuten%) 


IF (numuten% > numcas%) THEN. 
P 


In esso la prima istruzione imposta il generatore di numeri casuali (> pag. 39) e la 
seconda genera un intero compreso fra 1 e 100; quindi l’istruzione INPUT chiede 
all’utente di indovinare il numero generato, mentre le due istruzioni IF...END IF indi- 
cano se ha fornito un valore troppo alto o troppo basso. 
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Un secondo esempio è costituito dal seguente programma, che utilizza la funzione 
INSTR (— pag. 50) per trovare tutte le ricorrenze della parola “Satan” nel verso “Papè 
Satan, papè Satan, aleppe”. 


S1$ = “Papè Satan, papè Satan, aleppe” 
$2$ — “Satan” l/l’‘0Òò0’ 
| PRINT. S1$ 
Inizio=i 
Numric i _ 
Do _.. i 
Ri - - INSIR(Mmizio, ALS, 428) 
IFric>-0 i _ 
PRINT TAB (Ric -. 
_- +1 
Numric = Numric + 1° . 
END IF ' z« 
LOOP WHILE RIC _ '/_/{i\\ii'’ 
PRINT. ‘Numero di ricorrenze =; Nuie. 


Esso produce la seguente uscita: 


Papè Satan, papè Satan, aleppe 
Satan 


Satan 
Numero di ricorrenze = 2 


La quarta forma sintattica, con verifica alla fine del ciclo, è: 


È 


[EXIT DO] 
LOOP [UNTIL condizione] 


dove condizione è una qualsiasi espressione logica, la cui falsità determina la ripetizio- 
ne del ciclo (vedi Figura 16). 


Un esempio è costituito dal seguente programma: 


i INPUT “Scrivi un ‘numero co per for da 
LOOP UNTIL num =— 0. | 
PRINT “Fine del ciclo” 


714 


Esso chiede di scrivere un numero, e ripete la richiesta fino a che si scrive il valore 0, 


dopo di che il ciclo ha termine. 


Esegui le 


istr 


uzioni 


del ciclo 


| Valutala | 


condizione 
del ciclo | 


la 


sd de o 


x vera? ed 


Fine del ciclo. 


Pigura 16 - Logica del ciclo DO...LOOP UNTIL 


Naturalmente è sempre possibile riscrivere una condizione che contiene la parola 
WHILE con una che contiene UNTIL, come risulta dai due programmi seguenti, che 
producono lo stesso risultato: 


DO WHILE NOT 


LINE 4 
PRINT 
| LOOP 


FEDE 
: LOOP. 


NPUT_ 
_. 


SS. 


EOF () 


li: D. 


DO. i. BORt) o 
LINE. INPUT fl, -. 


Essi leggono una linea del file 1 e la stampano sullo schermo, e ciò fino alla fine del file, 
che viene riconosciuta quando la funzione EOF(1) fornisce valore vero (+ pag. 132). 
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CONFRONTO TRA DO...LOOP E WHILE... WEND 


Se il controllo è posto alla fine del ciclo DO...LOOP, le istruzioni del ciclo vengono 
sempre eseguite almeno una volta, mentre con il ciclo WHILE... WEND può essere neces- 
sario ricorrere a un trucco per forzare la prima esecuzione del ciclo. 
Ad esempio, per ripetere un gruppo di istruzioni se l’utente preme il tasto “S”, con il ciclo 
WHILE... WEND è necessario assegnare il valore “S” a una variabile fuori dal ciclo: 


WHILE UCASES(risp$) = “S” 


INPUT “Vuoi continuare”; risp$s 
WEND 


mentre con il ciclo DO...LOOP ciò non è necessario: 


DO 


INPUT “Vuoi continuare”; risp$ 
LOOP WHILE UCASES(risp$) = “S” 


| USCITA DA UN CICLO DO...LOOP CON EXIT DO 


Di solito all’interno di un ciclo DO...LOOP si verifica qualcosa che alla fine cambia la 
condizione di ciclo da vera in falsa o viceversa, ponendo fine al ciclo stesso. Negli esempi 
visti finora, la verifica si trovava all’inizio o alla fine del ciclo; tuttavia, se si usa l’istruzio- 
ne EXIT DO per uscire dal ciclo, la verifica può essere messa all’interno del ciclo. 

Un ciclo DO...LOOP può contenere un numero qualsiasi di istruzioni EXIT DO, che si 
possono trovare in punti qualsiasi. 


Ad esempio, il seguente programma 


INPUT “Sequenza. da cercare: _._.--.- 0 
di - ELENCO" FOR INPUT ii. 
LINE INPIT (s .. u.. 
_. NSTR(tempor$, segues) > O THEN 
PRINT >. _ 

- EXIT DO. lÀÒ 

END. n 


apre il file ELENCO e lo legge una riga alla volta, fino a che si raggiunge Ia fine del 
ciclo oppure viene trovata una sequenza di caratteri indicata dall’utente. Se la sequenza 
viene trovata prima della fine dei file, un’istruzione EXIT DO fa uscire dal ciclo 
(comunque su questo tipo di file torneremo al paragrafo “File sequenziali: lettura”, a 
pag. 132). 


MENU DI SCELTA CON DO...LOOP 


L'istruzione DO...LOOP può essere usata anche senza indicare una condizione, né 
all’inizio né alla fine del ciclo. In tal caso il ciclo verrebbe eseguito all’infinito, per cui 
la condizione di uscita si deve trovare al suo interno. Un esempio tipico di questa situa- 
zione si ha nei menu di scelta, che sono realizzati da programmi simili al seguente. 


DO 


“Menu princ ipale” 


2 Cancellazione. schede” 
“3° Visualizzazione schede” 
A Uscita” 


T 

To - 

pori Aggiunt> nuove schede 
NT 

TT 


“Effettua una scelta (1-4) 
‘AS = INKEYS 
| SELECI CASE AS 
. CASE. 
CALL aggSchede 
CASE #24 
«CALL Cancschede 
Sa AZ i 
CALL VisSchede 
GASE “d4©.. 


ii 
CRISI EE 


LOOP. 
END _ 
ES i ì 


Esso utilizza l’istruzione SELECT CASE, che vedremo nel prossimo capitolo, per far 
eseguire una tra più azioni possibili (Aggiunta nuove schede, Cancellazione schede, 
Visualizzazione schede) da altrettanti sottoprogrammi (AggSchede, CancSchede, Vis- 
Schede), oppure l’Uscita dal ciclo. I sottoprogrammi sono richiamati dall’istruzione 
CALL, della quale parleremo più in dettaglio nel paragrafo “Sottoprogrammi” (+ pag. 
111), a proposito della programmazione modulare. 


d8; 


Capitolo 9 


Strutture di decisione 


PROGRAMMI FLESSIBILI 


Quando incontra una struttura di decisione, un programma valuta un'espressione, quindi 
si dirama verso diversi blocchi di istruzioni a seconda del risultato della valutazione. 
Le strutture di decisione disponibili in QBASIC sono: 


° il blocco di istruzioni IF... THEN...[ELSE] 
e l'istruzione SELECT CASE 
e l’istruzione ON...GOSUB 


Ciascuna di esse permette alla logica del programma di determinare l'aspetto del codi- 
ce, anziché il numero di istruzioni che si possono incrociare in una linea. Ciò fornisce 
non solo il vantaggio di una maggiore flessibilità nel programmare, ma anche quello di 
una migliore leggibilità del programma e facilità di manutenzione, una volta terminato. 
A seconda del valore di una condizione, le strutture di decisione fanno sì che un pro- 
gramma compia una delle due seguenti azioni: 


+ esecuzione di una o più istruzioni alternative, interne alla stessa struttura di decisione 
è diramazione a un’altra parte del programma, esterna alla struttura di decisione. 


IF...THEN...ELSE SU UNA SOLA LINEA 


Nelle precedenti versioni del BASIC, l'istruzione IF...THEN...ELSE su una sola linea è 
l’unica che permette di prendere una decisione. Nella sua forma più semplice, che ha la 
seguente forma sintattica IP condizione THEN istruzione, l’istruzione 
IF...THEN valuta la condizione che segue la parola IF e, se la trova vera (cioè diversa 
da zero), esegue l'istruzione che segue la parola THEN; se la condizione è falsa (cioè 
uguale a zero), il programma continua con la linea successiva a quella dell’istruzione 
IF...THEN. Un esempio è fornito dal seguente frammento di programma, scritto in 
BASICA, (ma eseguibile anche in QBASIC) che fa svolgere tre operazioni diverse a 
seconda del valore che viene immesso da tastiera. 


30 INPUE A _______- ..IONÙ' 
40 IF A > 100 THEN PRINT “Troppo grande” : GOTO 30° 
50 Ir A= 100 THEN SITO ____°___..-: 
60 PRINT A/100 : GOTO 30 

70 END mi! °°}£ 


Con l'aggiunta dell’opzione ELSE, si può far eseguire al programma un gruppo di 
azioni (quelle che seguono la parola THEN) se l’espressione è vera, e un altro gruppo 
di azioni (quelle che seguono la parola ELSE) se l’espressione è falsa. 
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Un esempio è fornito dal seguente segmento di programma, che controlla l'immissione 
della parola d’ordine corretta. 


10 INPUT “Parola d'ordine”; PARSO —. - . 
20 IF PARS = “chiave” THEN 50 ELSE PRINT “Riprova” 
: GOPO 10  ' _ LT" - 


L’istruzione IF...THEN...ELSE su una sola linea, sebbene adeguata per decisioni sem- 
plici, dà luogo a un codice pressoché illeggibile se si devono scrivere decisioni compli- 
cate. Ciò è particolarmente vero se si scrive un programma nel quale tutte le azioni 
alternative siano indicate entro la stessa istruzione IF...THEN...ELSE, ose più istruzio- 
ni IF...THEN...ELSE vengono annidate (poste cioè Yuna dentro l’altra), costruzione, 
peraltro, perfettamente legale. Come esempio della difficoltà di seguire un controllo 
anche molto semplice, consideriamo il seguente segmento di programma. 


20 INPUT A,B, 

30 IRA <- 50 THEN IBS <= 50 "THEN PRINT “ n 50, 

BB <= 50” ELSE PRINT A ww. Es ir B. — 
THEN PRINT di > 50, «B .. ELSE PRINT i > - 
B_50*. s 


IF... THEN...ELSE NELLA FORMA A BLOCCHI 


Per evitare istruzioni complicate come l’ultima del paragrafo precedente, QBASIC 
mette a disposizione l’istruzione IF... THEN...ELSE nella forma a blocchi, che non 
restringe più la decisione a una sola linea logica. Il precedente segmento di programma 
si può allora riscrivere nella seguente forma, molto più comprensibile: 


INPUT A,B 

i A <= 50 THEN 
OO 
_ PRINT <A <= 50, d.. 


END IR oi 
mi _ 
IF3B ... THEN. 


PRINT “A_> 50,8 50” 


Gi 
lug 

Di 
n. 


PRIN “A > > co, B> 50 


LE) E z 
Si 0° 
lp 2 Cl L 
He 

tri 


La sintassi dell’istruzione IF...THEN...ELSE nella forma a blocchi è 


IF condizionel THEN 
[blocco-1] 

[ELSEIF condizione? TH] 
[blocco-2]] 


[na] 
Zi 


i 
Gi 


LSE 
[blocco-n]] 
D IF 


E 
Di 


dove gli argomenti condizione!, condizione2,... sono espressioni o numeriche - nel qual 
caso ogni valore diverso da zero è considerato vero, mentre zero è falso - oppure boo- 
leane (+ pag. 67). Ogni clausola IF, ELSEIF ed ELSE è seguita da un blocco di istru- 
zioni; nessuna istruzione del blocco si può trovare sulla stessa linea di una clausola IF, 
ELSEIF o ELSE, altrimenti QBASIC la considera un’istruzione IF... THEN...ELSE su 
una sola linea. 

Come esempio consideriamo il seguente frammento di programma, che conta e dichiara 
numeri positivi e negativi 


IF X > 0 THEN 
PRINT “XxX è positivo” 
UMPOS = NUMPOS + 1 
ELSEIF X < 0 THEN 
PRINT “XxX è negativo” 
NUMNEG = NUMNEG + 1 
ELSE 
PRINT “XxX è zero” 
END IF 


QBASIC valuta ciascuna espressione presente nelle clausole IF ed ELSEIF dall’alto in 
basso, saltando i blocchi di istruzioni finché non trova la prima espressione vera; in tal caso 
esegue le istruzioni corrispondenti all’espressione, quindi esce dal blocco e va all’istru- 
zione che segue la clausola END IF. 

Se nessuna delle espressioni contenute nelle clausole IF o ELSEIF è vera, QBASIC sal- 
ta alla clausola ELSE, se presente, ed esegue le sue istruzioni. Se non vi è una clausola 
ELSE, il programma continua con l’istruzione che segue la clausola END IF. 

Le clausole ELSE ed ELSEIF sono entrambe opzionali, come si vede nel seguente 
esempio 


IF X < 100 THEN 
PRINT X 
NUM = NUM + 1 
END IF 
INPUT “Nuovo valore”; RISP 
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Un singolo blocco IF ... THI 


EN ... ELSE può contenere più di un'istruzione ELSEIF, 


come mostra il seguente frammento di programma, che identifica il tipo di un carattere 
comunicato al computer da tastiera 0 già presenie in memoria 


PRINT “Lettera maiuscola” 
ELSEIF CS s= “a” AND Si 
PRINT “Lettera minuscola” 
ELSEIF CS >= “0” and CS <= 
PRINT “Numero” 
ELSE 
PRINT “Non alfanumerico” 
END IF 


IF CS >= “A” AND 


C$ <= “Z" THEN 
rai 


“9” 


THEN 


THEN 


blocchi IF...THEN...ELSE possono anche essere nidificati, cioè se ne può inserire uno 


dentro un altro come nel seguente esempio, che identifica i segni di tre numeri comuni- 
cati o già noti al computer 


LE 


X 
LE 


LTL 
ELSE 


ND I 


END IE 


È 


0 


Il 


PRINT “Tu 


O TH 


TH 


sa 
EN 


EN 
E 


tti positivi” 


sa 
EN 
È 


O THEN 


ISTRUZIONE SE; 


PRINT “X negativo” 


PRINT “Solo X e Y sono positivi” 


PRINT “Tutti uguali a zero” 


PRINT “Solo X e Y uguali a zero” 
END IF 


LECT CASE 


L'istruzione SELECT CASE, che QBASIC ha ripreso da altri linguaggi di programma- 
zione, è una struttura di decisione a scelta multipla simile all’istruzione 
IF...THEN...ELSE a blocchi, e può essere usata tutie le volte che si può usare 
IP...THEN...ELSE. Fra esse ci sono tuttavia alcune differenze, che vedremo nel prossi- 


mo paragrafo. 


La sintassi dell'istruzione SELECT CAS 


s4 


Toh 


SELECT CASE espressione 
CASE Jistal 
[blocco-1] 

[CASE lista2] 
[blocco-2]] 


LE] 


[CASE ELSI 
[blocco-n]] 
D SELECT 


Gi 
Zi 


dove: l’espressione può essere una variabile sia numerica sia di stringa, e gli argomenti 
listal, lista2,... che seguono le clausole CASE possono essere uno o più dei seguenti, 
separati da virgole: 


 un’espressione numerica o un intervallo di espressioni numeriche 
e un’espressione di stringa o un intervallo di espressioni di stringa 


Se il valore dell’espressione che segue SELECT CASE compare nella lista che segue 
una clausola CASE, viene eseguito il blocco di istruzioni con quella clausola CASE, 
quindi il programma passa a eseguire la prima istruzione che segue l'istruzione END 
SELECT. Perciò se alla richiesta del seguente programma (costituita da un “?° determi- 
nata dall’istruzione INPUT) 


INPUT X 
SELECT CASE X 
CASE 1 
Print “Uno” 
CASE 2 
Print “Due” 
CASE 3 
Print “Tre” 
END SELECT 


PRINT “è tutto.” 


si risponde digitando da tastiera il numero “1”, si ottiene la seguente uscita: 


Uno, è tutto. 


Se in un'istruzione CASE si vuole indicare un intervallo di espressioni, si usa una delle 
due forme sintattiche seguenti: 


CASE espressione TO espressione 
CASE IS espressione con operatore di relazione 


dove l’espressione può essere sia di tipo numerico sia di stringa, e l'operatore di rela- 
zione è uno di quelli indicati in Tabella 10 di pag. 48. 
Ad esempio, se si scrive 
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CASE 1 TO 4 


le istruzioni associate sono eseguite quando l’espressione contenuta nell'istruzione 
SELECT CASE è maggiore o uguale a 1 e minore o uguale a 4. Se si scrive 


CASE IS < 5 


le istruzioni associate sono eseguite quando l’espressione è minore di 5. 

Nel caso in cui si esprima un intervallo con la parola chiave TO, bisogna stare attenti a 
scrivere per primo il valore più piccolo. 

É4d esempio, l’espressione 


CASE -5 TO 1 


è corretta, mentre l’espressione 


CASE 1 TO -5 


sarebbe errata, e le isiruzioni associate non verrebbero mai eseguite. 
Analogamente, un intervallo di espressioni di stringa deve contenere gli estremi in ordi- 
ne alfabetico, come nell’istruzione: 


CASE “alfa” TO “beta” 


In una clausosa CASE si possono elencare anche più espressioni o intervalli separandoli 
con virgole, come mostrano i seguenti esempi: 


CASE LU TO 4, 7 TO 9, numl% 
CASE IS = nome$S, IS = “fine del file” 
CASE IS < “alto”, “alto” TO “basso” 


Può succedere che più di una clausola CASE contenga lo stesso valore (0 intervallo di 
valori). In tal caso sono eseguite le sole istruzioni associate con la prima clausola, come 
mostra il seguente programma, che si aspetta l’immissione di una stringa lunga al massi- 
mo 10 caratteri: 


INPUT risps 
SELECT CASE risps 
CASE. “A” TO «Azzzz4zz727" 
PRINT “Parola in lettere maiuscole che inizia con A” 
CASE IS < “AF 
PRINT “Sequenza di caratteri non alfabetici” 
CASE “ABILE” 
PRINT “Caso particolare” 
END SELECT 
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Se in risposta alla richiesta di questo programma (prodotta dall’istruzione INPUT) si 
immette la parola “ABILE”, il programma risponde “Parola in lettere maiuscole che ini- 
zia con A”, e non “Caso particolare”. Infatti, l'istruzione CASE “ABILE” non viene 
mai eseguita, in quanto la parola “ABILE” rientra nell'intervallo della prima clausola 
CASE. 


La clausola 


CASE ELSE 


se viene usata, deve essere l’ultima clausola CASE elencata nell’istruzione SELECT 
CASE. Le istruzioni eventualmente comprese fra CASE ELSE ed END SELECT sono 
eseguite solo se l’espressione non si identifica con alcuna delle altre alternative CASE 
dell’istruzione SEBLECT CASE. 
Perciò è buona prassi inserire un'istruzione CASE ELSE in ogni blocco SELECT 
CASE, per gestire valori imprevisti dell'espressione. Se infatti l’espressione non si 
identifica con alcuna delle istruzioni CASE, viene visualizzato il messaggio 


CASE ELSE expected 


Questo messaggio comparirebbe, ad esempio, se l'utente avesse immesso la parola 
“BRAVO?” in risposta alla richiesta del programma precedente. 
Un blocco SELECT CASE deve terminare con l'istruzione 


END SELECT 


istruzione SELECT CASE viene usata spesso per visualizzare sullo schermo un menu 
di scelta, come abbiamo visto nel paragrafo Menu di scelta con DO...LOOP (+ pag. 
TD. 

Quando il blocco di istruzioni risulta piuttosto lungo, è preferibile richiamarlo per mez- 
zo dell'istruzione CALL, come vedremo nel successivo paragrafo “Sottoprogrammi” 
(4 pag. 111). 


CONFRONTO TRA SELECT CASE E IE... THEN...ELSE 


La differenza principale fra le istruzioni SELECT CASE e IF...PTHEN..ELSE è che 
SELECT CASE valuta una singola espressione, quindi esegue differenti istruzioni o fa 
diramare a differenti parti dei programma a seconda del risultato. Invece un blocco 
IF... PHEN...ELSE può valutare diversi fipi di espressioni. 

Come esempio del diverso modo di operare delle istruzioni SELECT CASE e 
IF...THEN...ELSE, consideriamo i frammenti di programma riportati in Tabella 13, che 
esaminano il carattere immesso da tastiera, e determinano l'esecuzione di azioni diverse 
a seconda del carattere immesso. 
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| Programma con SELECT CASI 


INPUT X 


CASE i 
RI 


Programma con IF...THEN...ELSE 


SELECT CASE X° 


SEIF x s 2 THEN. 


-_- essere compreso. 
hi l e i. _ 


Tabella 13 - Confronto tra SELECT CASE e IF...THEN...ELSE 


L’istruzione IF... THEN. 
risultare più efficiente di S 


INPUT Xx, Y 


PRINT 
END IF 
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.ELSE, essendo in grado di valutare diverse espressioni, può 
ELECT CASE, come mostra il seguente esempio: 


IF X = 0 ANI 


Capitolo 10 


Vettori e matrici 


CHE COSA SONO I VETTORI E LE MATRICI 


Se un programma deve trattare insiemi piuttosto ampi di dati collegati tra loro, può 
risultare scomodo impiegare le variabili esaminate nel capitolo “Variabili e costanti” 
{+ pag. 17). Ad esempio, per richiedere l'immissione da tastiera dei nomi di 40 perso- 
ne si dovrebbero scrivere altrettante istruzioni del tipo 


INPUT “Scrivi 11 nome numero 1 “; Nomel$ 


INPUT “Scrivi il nome numero 40 “; Nome405S 


La situazione sarebbe ancora più pesante se si dovessero eseguire su questi dati delle 
elaborazioni anche semplici, come ad esempio l'ordinamento alfabetico. È allora molto 
più comodo usare delle variabili con indici, dette a seconda dei casi vettori o matrici (in 
inglese array), al posto delle variabili semplici (o senza indici) finora considerate. 
Precisamente, un vettore è un insieme di variabili, tutte con lo stesso nome seguito da 
un numero d’ordine progressivo racchiuso tra parentesi detto indice. Esempio: 


Nomes (1)  Nome$(2) ... Nome$(40) 


Le precedenti variabili si chiamano le componenti del vettore Nome$, e si dice anche che 
il vettore Nome$ è costituito dalle componenti Nome$(1), Nome$(2), ... NomeS(40). 
Come risulta da questo esempio, il vettore ha un nome uguale a quello delle sue compo- 
nenti, ma senza l’indicazione del numero d'ordine tra parentesi. 

In certi casi può essere necessario usare un vettore con due indici o matrice a due 
dimensioni, come succederebbe se volessimo considerare le temperature relative alle 
diverse ore dei diversi giorni della settimana. In tal caso potremmo considerare la matri- 
ce Temp, le cui componenti potrebbero avere un primo indice relativo all’ora (e varia- 
bile da 0 a 23) detto indice di riga, e un secondo indice relativo al giorno (e variabile da 
1 a 7) detto indice di colonna. La ragione di questa terminologia si spiega considerando 
lo schema di Tabella 14. 


| lunedì martedì mercoledì ni domenica 
0 DO Temp(0, 1) Temp(0, 2) Temp(0, ni Temp(0, 7) 
1 Temp(1, 1) Temp(1, 2) Temp(1, 3) Temp(1, 7) 
2 Temp(2, 1) Temp(2, 2) Temp(2, 3) Temp(2, 7) 
3 Temp(3, 1) Temp(3, 2) Temp(3, 3) Temp(3, 7) 
23 Temp(23, 1) | Temp(23, 2) Temp(23, 3) Temp(23, 7) 


Tabella 14 - Componenti di una matrice a due dimensioni 


9I 


Le componenti di un vettore o di una matrice sono variabili di uno dei tipi già visti al 
paragrafo “Tipi di variabili” (© pag. 20), e cioè 


Intero, Intero LONG, Singola precisione, Doppia precisione, Stringa 
e naturalmente il loro contenuto deve essere coerente con il tipo cui appartengono. 


In QBASIC si possono trattare anche matrici con più di due indici o. In realtà multi- 
mensionale è una matrice con + di 1 dim. 


DIMENSIONAMENTO 
(DIM, OPTION BASE) 


Dato che i vettori e le matrici possono avere numerose componenti (il massimo valore 
consentito è 32767) e richiedere quindi grandi spazi di memoria, è necessario informare 
QBASIC se il numero di tali componenti supera un certo valore (11 elementi), dimen- 
sionando il vettore. Ciò si ottiene con una delle istruzioni 


DIM vettore(n)[...] 
DIM matrice(m, n)[...] 


dove: i puntini indicano che si possono dimensionare con una stessa istruzione più vet- 
ori e/o matrici, separando i loro nomi con la virgola; m e n indicano i valori massimi 
che si intendono dare agli indici. Ad esempio, l’istruzione 


DIM Nomes (40) 


permette di usare per il vettore Nome$ un indice che assume al massimo il valore 40, 
mentre l’istruzione 


DIM Temp(23, 7) 


permette di usare per la matrice Temp un primo indice che assume al massimo il valore 
23 e un secondo che può arrivare a 7. Se un vettore non ha più di 11 elementi, il dimen- 
sionamento non è necessario, ma è lo stesso opportuno, perché in sua assenza QBASIC 
riserverebbe comunque ll posizioni di memoria per le componenti del vettore. 

Il dimensionamento pone uguale a zero il valore iniziale delle componenti numeriche e 
imposta a lunghezza nulla le componenti di stringa. Quando si usa un vettore o una 
matrice, QBASIC riserva uno spazio di memoria anche per la sua componente 0 e quin- 
di, per dimensionare il vettore Nome$ con 40 componenti, è sufficiente scrivere 


DIM Nome$ (39) 


Di questo fatto è bene tener conto per non sprecare inutilmente spazio di memoria, e far 
partire tutti gli indici da 0. In alternativa si può inserire prima della DIM l’istruzione 


OPTION BASE 1 


che fa iniziare da | tutti gli indici di vettori e matrici dimensionati successivamente. 
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OPZIONE DELL’ISTRUZIONE DIM 


L'istruzione DIM è in effetti più complessa di quanto abbiamo visto nel paragrafo pre- 
cedente. Infatti, mentre l'istruzione OPTION BASE permette di cambiare in 1 il primo 
indice dei vettori, l’istruzione DIM ha un'opzione che permette di assegnare all’indice 
di partenza un valore qualsiasi, compresi i numeri negativi. 

La forma sintattica completa di DIM è la seguente: 


DIM vettore(indice inferiore TO indice superiore) 
dove l’indice inferiore e Vindice superiore possono variare da -32768 a 32767, e il pri- 
mo deve essere minore del secondo. Il numero n di componenti dimensionate da DIM si 


calcola con la formula: 


n = indice superiore - indice inferiore + 1 


per cui, ad esempio, l’istruzione 


DIM Suff(6 TO 10) 


riserva spazio per le 10 - 6 + 1 = 5 componenti Suff(6) Suff(7) Suff(3) Suff(9) 
Suff(10) 


CANCELLAZIONE DI UN VETTORE (E] 


(SE) 


Nel corso di un programma non è possibile cambiare il numero di componenti di un vet- 
tore già dimensionato; infatti ciò provocherebbe un messaggio di errore. Se è proprio 
necessario ridimensionare un vettore, si può ricorrere all’artificio di cancellarlo con 
l'istruzione 


ERASE vettore [...] 


dove al solito i puntini indicano che si possono cancellare con una stessa istruzione più 
vettori e/o matrici, separando i loro nomi con la virgola, e quindi ridimensionarli nuova- 
mente. ERASE è anche utile per azzerare i vettori numerici e impostare a lunghezza 
nulla quelli di stringa, senza dover scrivere un ciclo che esegua questa operazione sulle 
singole componenti. 


ASSEGNAZIONE DI VALORI 


A 


Come ho accennato, l’uso di vettori o matrici al posto di variabili senza indici semplifi- 
ca diverse fasi della scrittura di un programma, a cominciare dalla richiesta dei valori 
che l’utente deve immettere da tastiera. Nel caso del vettore Nome$, tale richiesta può 
essere eseguita da questo semplice ciclo: 
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FOR M%& = 0 TO 39 

PRINT “Scrivi il nome numero “; M% + 1 
INPUT NomeS(M%) 

NEXT M% 


che chiede all’utente indici che variano da 1 a 40, mentre usa per il vettore Nome$ com- 
ponenti di indici che variano da 0 a 39. In modo analogo, se si vuole riempire la matrice 
Temp riga per riga si possono usare i due seguenti cicli nidificati: 


FOR Ores = 0 TO 23 
FOR Glor% = 1 TO 7 
PRINT “Temperatura alle ore”; Ore%; “ del giorno”; Gior% 
INPUT Temp(0re%, Gior%) 
VEXT Gior% 
NEXT Ore 


Anche la visualizzazione o stampa delle componenti di un vettore è molto semplice, 
potendo essere eseguita dallo stesso ciclo FOR...NEXT di prima o dal seguente ciclo 
DO...LOOP: 


PRINT “Nome numero “; M%; Nome$(M%) 
M% = M% + 1 
LOOP UNTIL M& > 39 


Lo stesso discorso vale per la visualizzazione o stampa delle componenti di una matrice, 
per ia quale sarà necessario nidificare due cicli l’uno dentro l’altro: 


Ore% = 0 
DO 
Gior% = 1 
PRINT “Temperatura alle ore”; Ore%; “ del giorno”; 
Gior% 
Gior% = Gior% + 1 
LOOP UNTIL Gior& > 7 
Ore% = Ore% + 1 
LOOP UNTIL Ore% > 23 


DIMENSIONAMENTO DINAMICO 


Se il numero massimo di elementi che avrà un vettore può variare da un’esecuzione 
all’altra dello stesso programma, si può eseguire il dimensionamento dinamico del vet- 
tore, chiedendone il numero di elementi all’utente ogni volta che inizia l'esecuzione del 
programma. La tecnica è mostrata nel seguente frammento di programma: 
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INPUT “Quanti nomi sl vogliono digitare”; N% 
DIM Nome$(N%) 

FOR K% = 1 TO N% 

INPUT “Nome “; NomeS(K%$) 

NEXT K3 


Questo programma richiede però che l’utente conosca in anticipo il numero di elementi 
che intende immettere. Dato che in genere ciò non succede, è preferibile seguire un’altra 
tecnica, che richiede all’utente di premere il tasto <Invio> anziché digitare un dato 
quando ha terminato di scrivere i dati. Ciò si ottiene con il seguente programma, che 
permette di digitare un numero massimo di 500 nomi 


DIM Nome$ (500) 
K% = 1 
DO 


PRINT “Scrivi un nome (o premi <Invio> per finire)”: 
INPUT “*, NomeS(K3%) 

IF Nome$(K3) = “” THEN EXIT DO 

Ks = K5 + 1 

LOOP UNTIL K$ > 500 


INTERPOLAZIONE DI O 


Una delle applicazioni informatiche più semplici dei vettori è costituita dall’interpola- 
zione, che permette di risolvere il seguente problema. Supponiamo di avere una tabella 
simile alla Tabella 15, che riporta nella colonna di sinistra alcuni numeri interi e in quel- 
la di destra le loro radici quadrate. 


INE N 


numero radice quadrata 
(variabile X) {variabile Y) 
1 1 
4 2 
9 3 
16 4 
25 5 
36 6 
rn 


Tabella 15 - Tabella che riporta alcuni numeri e le loro radici quadrate 


Può essere necessario conoscere Îa radice quadrata di un numero che non si trovi nella 
prima colonna o, come si dice in termini più matematici, “il valore della variabile Y 
che corrisponde a un valore della variabile X” (se il numero è compreso fra quelli elea- 
cati si parla di interpolazione, altrimenti di estrapolazione, ma i due problemi sono 
sostanzialmente analoghi). 
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Tale ricerca risulta tanto più precisa quanto più numerose sono le coppie di numeri di 
cui si dispone, e in particolare si parla di interpolazione lineare se le coppie sono due, di 
interpolazione quadratica se le coppie sono tre. 

La ragione di questa terminologia sta nel fatto che le coppie di valori x, y si possono 
interpretare come coordinate di punti sul piano, e due punti individuano una linea retta, 
tre punti individuano una parabola di secondo grado o quadratica, e così via. In ogni 
caso il valore incognito della variabile Y viene considerato come la coordinata verticale 
di un punto che si trovi sulla curva individuata dagli altri punti di cui si conoscono le 
coordinate. La Figura 17 mostra la rappresentazione grafica dell’interpolazione lineare, 
in cui sono note due coppie di valori o punti: (Xx, Yj) e 06, Y,), e si cerca la y che cor- 
risponde a una determinata x 


À 


EIA 
eZ 
ii 
cAAE Sgr = 


Figura 17 - Ricerca di un valore y tramite l’interpolazione lineare 


La formula che permetie di calcolare la y dipende dal numero di punti che si intendono 
utilizzare: in Figura 18 ho riportato quella valida per 3 punti (interpolazione quadrati- 
ca), ma questa formula può essere estesa facilmente, dopo una breve riflessione, a un 
numero di punti qualsiasi. 


(x x2)(x — x3) (x -xD(x -x3) (x - xD(x — x2) 
(x1-x2)(x1- x3) (x2- xD(x2— x3) (x3- x1)(x3- x2) 


Figura 18 - Formula dell’interpolazione quadratica 


ll programma INTERPOLA che propongo usa appunto questa formula generalizzata 
per eseguire l’interpolazione con un numero di punti qualsiasi, le cui coordinate sono 
memorizzate nei vettori X, Y che vengono dimensionati dinamicamente. 

A proposito di questo programma, possiamo osservare che i dati immessi dall’utente 
sono dapprima memorizzati in variabili di stringa (N$, X$, Y$), che vengono quindi 
convertite in numeri, secondo la tecnica raccomandata nel paragrafo “Immissione di 
dati dalla tastiera” (+ pag. 55). Ciò per evitare che si immettano per errore dei dati non 
numerici, nel qual caso il programma tornerebbe a chiedere di immettere i dati corretti; 
(naturalmente, con questa tecnica non è possibile immettere come dato lo zero). 
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REM ***INTERPOLA*** 

CLS 

10 INPUT “Numero dei punti”; NS 

%& = VAL(NS): IF N$ = 0 THEN 10 

DIM X(N%), Y(N%) 

FOR K% = 1 TO N% 

20 PRINT “Scrivi x”; KS; *, v”; K$; “, separandoli 
con una virgola” 

INPUT XS, Y$ 

X(K%) = VAL(XS): Y(K%) = VAL(YS) 

IF X(K%) = 0 OR Y{(K%) = 0 THEN GOTO 20 
NEXT K% 

INPUT “Scrivi x”: X 

FOR M% = 1 TO N& 

Noe Lr Det 

FOR L% = 1 TO N% 

IF L% = M% THEN L% = L%$ + 1: IF L% > N$ THEN 30 

N = Nè* (X- X(L%)) 

D = D* (X(M%) - X(L%)) 

NEXT L% 

30 Y = Ya N* Y(M%) / D 
NEXT M% 
PRINT “y ="; Y 


Per farci un'idea del tipo di precisione ottenibile con questo metodo, possiamo immagi- 
nare di calcolare la radice quadrata di 9, immettendo prima due, poi tre e infine quattro 
coppie di valori. Î risultati che si ottengono sono riportati in Tabella 16. 


se si immettono 
le coppie di valori... 


si ottiene per la radice quadrata 
di 9 il valore... 


(2,4) (4,16) 


(1,1) (2,4) (4,16) 


(2,4) (4,16) (5,25) 


(1,1) (2,4) (4,16) (5,25) 


2.833333 


3.222222 


2.925926 


3.123457 


ul 


Tobella 16 - I valori di approssimazioni successive per calcolare una radice quadrata 


con il metodo dell’interpolazione 
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LETTURA E ASSEGNAZIONE DI VALORI 
(READ...DATA) 


Quando si scrive un programma, se si conoscono in partenza i valori che assumeranno 
le variabili impiegate, conviene assegnare tali valori da programma stesso, piuttosto che 
farli immettere da tastiera dall’utente. A questo scopo, oltre all'istruzione LET già vista 
nel paragrafo “Assegnazione di valori da programma” (— pag. 19), si può usare la cop- 
pia di istruzioni READ...DATA, più convenienti soprattutto nel caso di assegnazione di 
valori a vettori e matrici. 

Le istruzioni READ...DATA operano sempre in coppia, secondo la seguente forma sin- 
fatica: 


READ variabile[...] 
DATA costantel,...] 


dove: la variabile può essere di uno qualsiasi dei tipi accettati da QBASIC (vedi para- 
grafo “Tipi di variabili” a pag. 20”); la costante deve essere dello stesso tipo della 
variabile, e se è di stringa deve essere racchiusa tra virgolette; i puntini indicano la pos- 
sibilità di scrivere sulla stessa riga più variabili e costanti, separandole con “”. 
L'istruzione READ legge le costanti indicate nell’istruzione DATA e le assegna ordina- 
tamente alle proprie variabili; perciò è necessario che ogni variabile indicata in READ 
sia dello stesso tipo della corrispondente costante di DATA (altrimenti compare un 
messaggio di errore di sintassi). 

Ad esempio, la coppia di istruzioni: 


READ K$, Quoz, Risult$ 
DATA 5, 29.18, “Esatto” 


ha l’effetto di assegnare alla variabile K% il valore 5, a Quoz il valore 29.18 e a Risult$ 
il valore “Esatto”. Essa è quindi equivalente alle istruzioni 


Quoz = 29,18 
RisultS = “Esatto” 


A questo proposito osserviamo che: 


° è completamente equivalente scrivere le costanti da assegnare alle variabili in una sola 
o in più istruzioni DATA; infatti tutte le istruzioni DATA che compaiono in un pro- 
gramma sono considerate come un’unica istruzione. Perciò la precedente coppia di 
istruzioni READ...DATA potrebbe anche essere sostituita dalle seguenti: 


READ K$, Quoz, Risults 
DATA 5 
DATA 29.18 


DATA “Esatto” 
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° le istruzioni READ e DATA si possono trovare in punti qualsiasi del programma, 
anche distanti fra loro; tuttavia, dato che QBASIC ricerca le istruzioni DATA a partire 
dall'inizio del programma, è bene che esse si trovino in questo punto, per un’esecuzio- 
ne più veloce. 


RILETTURA DI COSTANTI (RESTORE) 


Quando incontra per la prima volta un'istruzione READ, QBASIC cerca nel program- 
ma, a partire dall’inizio, una o più istruzioni DATA, i cui valori assegna ordinatamente 
alle variabili indicate in READ. Se la o le istruzioni DATA contengono più costanti di 
quante siano le variabili indicate nell’istruzione READ, QBASIC mantiene traccia 
dell’ultima costante assegnata, in modo che un’eventuale successiva istruzione READ inizi 
l'assegnazione a partire dalla prima costante non assegnata. Quindi la coppia di istruzioni: 


READ K$, Quoz, Risults 
DATA 5, 29,18, “Esatto” 


è completamente equivalente alle seguenti 


AD K5 
EAD Quoz 
A 

“E 


D RisultS 
A 5, 29,18, “Esatto” 


Tuttavia, la lettura delle costanti da parte di un’istruzione READ può cominciare anche 
dalla prima istruzione DATA del programma, se si premette a READ l'istruzione 


RESTORE 


oppure da una riga di etichetta prefissata, se si premette a READ l'istruzione 


RESTORE riga 


Ciò è dimostrato dal seguente programma: 


DATA “Confermi?”, 5000, “Esatto” 
BREAD Dom$s, Tot% 
RESTORE 


READ Risult.$ 
PRINT Dom$, Tot%, Risults 


che produce l’uscita 
confermi? 5000 confermi? 


Se le costanti complessivamente indicate nelle istruzioni DATA sono in numero masg- 
giore delle variabili delle istruzioni READ, le costanti in più sono ignorate. 
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TECNICHE DI LETTURA DEI DATI 


Un vantaggio delle istruzioni READ...DATA è che esse permettono di inserire o toglie- 
re facilmente dati aventi la stessa struttura. Ad esempio, per leggere e visualizzare i 
cognomi di un certo numero di studenti, seguiti dalla rispettiva media e numero di as- 
senze, si può inserire la coppia di istruzioni: 


READ Cognome$s, Media%, Assen% 
PRINT Cognome$s, Medila%, Assen% 


in un ciclo che inizia con l’etichetta 
Prosstud: 

termina con l’istruzione 

GOTO Prosstud 

ed è seguito da istruzioni del tipo: 


DATA “Derossi”, 7, 20 
DATA “Maresca”, 6, 15 


Tuttavia è necessario che il ciclo di lettura termini dopo aver letto tutti i dati; ciò si 
ottiene scrivendo dopo l’ultima riga di dati una riga del tipo 


DATA “ZZ", 99, 99 


(o contenente un qualsiasi altro valore che non sarà sicuramente posseduto dal Cogno- 
me), e inserendo nel ciclo di lettura un'istruzione di controllo del tipo 


IF CognomeS =- “ZZ” THEN GOTO Basta 


che rimanda a linee del tipo: 


Basta: 
END 


1 programma completo è pertanto il seguente LEGGERE AD. 

In esso, come ho accennato, si possono aggiungere quante linee dati si vogliono, purché 
abbiano la stessa struttura di quelle esistenti, senza dover apportare alcuna modifica al 
resto del programma. 
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REI ***LEGGERBAD*** 
CLS 
Prosstud:. 


READ Cognome$, Media%, Assen& | 
IF Cognome$ = “Z7Z" THEN GOTO Basta 
PRINT Cognome$, Media$%, Assen% | 
GOTO Prosstud 

DATA “Derossi”, 7, 20 

DATA “Maresca”, 6, 15 

DATA «22°, 399,99 

Basta: __—__—__— 

END — 


RICERCA DELL’ELEMENTO MASSIMO 
DI UN VETTORE 


In questo e nel paragrafo successivo illustrerò due esempi di elaborazioni molto fre- 
quenti su insiemi di dati numerici o alfabetici, che si trovino contemporaneamente pre- 
senti nella memoria di un computer sotto forma di componenti di un vettore. 


/ Assegnazione dei / 
/ valori alle componenti / 
del vettore / 


Operazione | 
sulle 
componenti | 


Uscita dei risultati 


Figura 19 - Le tre fasi dell’elaborazione di un vettore 


In entrambi i casi elaborazione consisterà nelle tre fasi schematizzate in Figura 19, 
dove in particolare l’assegnazione dei valori alle componenti viene effettuata dal pro- 
gramma stesso tramite istruzioni READ...DATA. Ciò al solo scopo di poter presentare 
al lettore anche il tipo di risultati che il programma produce sullo schermo. 
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Se invece i dati vengono immessi tramite tastiera dall'utente, sarà sufficiente modifica- 
re l'assegnazione dei valori con uno dei cicli contenenti l'istruzione INPUT che abbia- 
mo visto in precedenza. 

Per trovare l’elemento massimo di un insieme numerico è sufficiente confrontare cia- 
scun elemento con il primo e, se si trova un elemento maggiore, questo diventa la base 
per i confronti successivi. Si continua così finché si raggiunge la fine del vettore. 

Il seguente programma TROVAMASS ricerca e stampa il valore massimo fra quelli 
delle tre vendite memorizzate nel vettore Vend. 


REM ***TROVAMASS*** 0) 
DATA 1500, 7200, 4800, -99. 
DIM Vend(2) ___’001 


ci 

pr 
READ Vend(K%) 

ic. ’ "r 

LOOP UNTIL Vend(K$ - 1) = -99 
\-__- 


FOR M& - 2 10 K3 - 
| IF Vend(M%) > Vendmax THEN. 
| vendmax = Vend(M$%) 

END IE. . 
EXT MY_ 


(E 
M 


RINT “La vendita massima è: “; Vendmax 


Esso produce l’uscita: 


La vendita massima è: 7200 


ORDINAMENTO DELLE COMPONENTI 
DI UN VETTORE (SWAP) 


Un'altra operazione molto frequente su dati numerici o alfabetici è quella di ordinarli in 
verso crescente o in ordine alfabetico. I due problemi sono completamente equivalenti 
per un computer che, come già sappiamo, tratta come numeri sia i dati alfabetici sia 
quelli numerici (tramite ia conversione in codici ASCII vista al paragrafo “Tabella dei 
codici ASCII”), + pag. 14. I programmi che risolvono il problema dell’ordinamento o 
sort delle componenti di un vettore si basano su diversi approcci, i più noti dei quali 
sono il bubble sort, il quick sort e lo shell sort. Tutti questi metodi confrontano ciascu- 
na componente del vettore con un’altra, e ne scambiano i valori se non sono già 
nell’ordine voluto. Quest’operazione è eseguita dall’istruzione: 


102 


SWAP vari, var? 


inserita in un ciclo IF...END IF, che scambia fra loro i valori delle variabili var/ e var2. 


Il semplice programma che segue dispone in ordine c 


rescente una lista di numeri basan- 


dosi sulla tecnica del bubble sort; essa è così chiamata perché alla fine di ogni ciclo il 


valore più piccolo si porta “in cima” agli altri, come 
d’acqua. 


fanno le bolle d’aria in un bicchiere 


REM ***ORD) 
DATASDI 
DIM Num(9 
CLS 
PRINT “Nu 
FOR K% = 
READ Num 


meri-non ordinati: 
0: TO. 9 


Gi 


È NPUT “Premi <1 
ordinati”; RS 

FOR N33. = 0. TO 79 
PRINT. Num(N%).; 
NEXT.N% 


INvVIO>. per v 


edere: i numeri. 


Esso produce la seguente uscita: 


Numeri non ordinati: 


5 40 71 8° 27 32 49 60 


56 


L9 


Premi <Invio> per vedere i numeri ordinati 


58 19 27 32 40 49 56 


Come ho accennato, il precedente programma OR] 


60 


71 


DINA funziona anche per ordinare 


alfabeticamente una lista di parole, pur di sostituire il vettore Numero con un vettore 
Nome8$, (e naturalmente modificare i messaggi informativi sullo schermo). 


Permette anche l'ordinamento inverso, sostituendo | 


‘operatore “>” con “<”. 
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ALT 


E OPERAZIONI CON I VETTORI 


Quando si opera con i vettori, vi sono alcune operazioni abbastanza frequenti che si 
possono eseguire con i semplici programmi riportati in questo paragrafo. 


Somma delle componenti di un vettore 
Dato un vettore V con n elementi, memorizzare la loro somma nella variabile S. Il pro- 
gramma è Il seguente: 


FOR i% = 1 TO n& 
S = S + V(I1%) 


PRINT “La somma è”; S 


Somma delle componenti di una matrice 
Data una matrice M con r righe e c colonne, memorizzare la loro somma nella variabile 
S. Il programma è il seguente: 


Hu 
©) 
H 
e 
ee ll 
Il 
(i 
H 
© 
(e) 
(o) 


next i% 
PRINT “La somma è”; S 


Somma delle componenti di una matrice per righe 

Data una matrice M con r righe e c colonne, sommare gli elementi delle sue righe, 
memorizzando i risultati nelle componenti del vettore S. Il programma è il seguente 
(dove ho omesso le istruzioni di dimensionamento): 


Riv =. WO (13 
PRINT “La somma della riga”; 1%; “è”: S(1%) 
NEXT 1% 
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Capitolo 11 


Programmazione modulare 


CHE COSA SONO I MODULI DI PROGRAMMA 


I programmi visti finora erano piuttosto corti, dato che ciascuno si proponeva di illustra- 
re una singola tecnica di programmazione. Tuttavia, i programmi effettivi consistono 
normalmente in molte pagine di codice, e quindi risulta difficile organizzarli e com- 
prenderli, specie dopo un certo tempo che sono stati scritti. 

Per ovviare a questa difficoltà è stata sviluppata la tecnica della programmazione 
modulare; essa consiste nello spezzare un lungo programma in più moduli o blocchi di 
istruzioni, ciascuno dei quali è in grado di eseguire un singolo aspetto del problema che 
si vuole risolvere. 

Per spiegarmi con un paragone, dirò che impiega di solito una tecnica modulare chi si 
appresta a scrivere un libro. Infatti, il compito complesso 


SCRIVI IL LIBRO 


si può spezzare in un certo numero di compiti più semplici, quali 


SCRIVI L’INTRODUZIONE 
SCRIVI IL 1° CAPITOLO 
SCRIVI IL 2° CAPITOLO 


SCRIVI L’INDICE 


Alcuni di questi compiti si possono a loro volta spezzare in passi più semplici, quali 


SCRIVI IL 1° PARAGRAFO 
SCRIVI IL 2° PARAGRAFO 


e così via. 

Se rappresentiamo graficamente questo tipo di organizzazione, come in Figura 20, lo 
schema che otteniamo assomiglia a un triangolo (o a una piramide), con il compito prin- 
cipale (SCRIVI IL LIBRO) situato nel vertice, e quelli di livello via via più semplice al 
di sotto. Per questa ragione la programmazione modulare è detta anche approccio top- 
down, che significa “dall’alto verso il basso”. 

QBASIC mette a disposizione tre tipi di “mattoni” o moduli per costruire questa pirami- 
de: le subroutine, i sottoprogrammi e le funzioni. 


SCRIVI 
IL LIBRO 
SCRIVI LA SCRIVI IL SCRIVI IL 
INTRODUZIONE 1° CAPITOLO 2° CAPITOLO 


SCRIVI IL SCRIVI IL SCRIVI IL SCRIVI IL SCRIVI IL 
1° PARAGRAFO || 2° PARAGRAFO | | 3° PARAGRAFO || 1° PARAGRAFO | | 2° PARAGRAFO 


Figura 20 - Suddivisione di un compito complesso in moduli più semplici 
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SUBROUTINE (ON...GOSUB RETURN) 


Una prima possibilità piuttosto rudimentale di programmazione modulare, già offerta 
dalle precedenti versioni di BASIC e mantenuta per ragioni di compatibilitàda QBA- 
SIC, è la struttura di decisione a scelta multipla ON...GOSUB, che ha un effetto simile 
all'istruzione SELECT CASE già vista. 

In particolare, ON...GOSUB, che ha la forma sintattica 


ON espressione GOSUB lista 


dove: il valore dell’espressione numerica deve essere compreso fra 0 e 255, e la lista è 
un elenco di numeri di riga di espressioni eseguibili. ON...GOSUB esamina il valore 
dell’espressione e, se lo trova 


e uguale a 1, esegue il blocco di istruzioni che inizia al primo numero di riga indicato 
nella lista; 

® uguale a 2, esegue il blocco di istruzioni che inizia al secondo numero di riga indicato 
e così via. 


Ciascun blocco di istruzioni termina con la parola chiave 


RETURN 


che determina la prosecuzione dell’elaborazione a partire dall’istruzione che segue 
l’istruzione ON...GOSUB. 

Secondo una terminologia molto diffusa, i blocchi di istruzioni compresi fra il numero 
di riga e la parola chiave RETURN sono detti subroutime, mentre le istruzioni di pro- 
gramma diverse da quelle che costituiscono le subroutine sono dette programma prin- 
cipale. 

Le subroutine si possono trovare in punti qualsiasi del programma principale, anche se è 
preferibile che siano raggruppate tutte alla fine; in tal caso il programma principale 
deve contenere istruzioni che lo separino dalle subroutine, per evitare che le loro istru- 
zioni possano essere eseguite al di fuori dei richiami espliciti contenuti nell’istruzione 


ON...GOSUB 


Allo scopo si potrà usare l'istruzione 


END 


prima della prima subroutine, oppure racchiudere il programma principale in una oppor- 
tuna struttura iterativa, come mostra il seguente programma SCELTAI. 

In questo caso in risposta a un numero immesso dall’utente viene eseguita un’opportuna 
subroutine: i numeri 1, 2, 3 fanno eseguire quella che inizia a riga 50, i numeri 4, 5 
quella che inizia a riga 100. 


108 


REM *X*SCELTA1*** 

Xx = : 

WHILE X% zcL__- 
INPUT. SFai. la tua scelta cd per. finire)”, Xas 
TB X$ = O. THEN END ll. 
WHILE XxX <10RX%$>5 - . o 
_ PRINT "Il valore dev'ess re compreso fr ] Su 
Ta *Fai la tua scelta (0 per finire)“, X% 
WENI D e’o’OeaOa. 1 + . 
ON X% GOSUB 50, _50, 50, 100,100. 

WEND . - - 

50 PRINT “ Subrout.i ine 50 < 

RETURN . .:: 

100 PRIN | "Subroutine 1007 L 

| RETUI RN.  '° 
CONFRONTO FRA ON...GOSUB E SELECT CASE 


Come ho osservato, ON...GOSU 
viene di solito sostituita con la nuova istruzio 
le e presenta i seguenti vantaggi: 


è un residuo delle precedenti versioni del BASIC, e 


ne SELECT CASE, che risulta più versati 


e L'espressione contenuta in SELECT CAS 


E è una variabile di tipo o numerico o di 


stringa, mentre l’espressione contenuta in ON...GOSUB deve essere una variabile 


numerica con valore tra 0 e 255. 
e L'istruzione SELECT CASE fa diramare 


a un blocco di programma situato subito 


dopo la clausola CASE che è stata verificata, mentre ON...GOSUB fa diramare a una 
subroutine situata in un altro punto del programma. 


e La clausola CAS 


E permette di controllare una espressione con un intervallo di valori, 


e se questo è piuttosto ampio il confronto eseguito con ON...GOSUE risulta alguanto 
laborioso. Perciò il programma scelta 1 si può riscrivere, in maniera più chiara, usan- 


do l’istruzione SEL] 


EM >*+3CE 
DO 

"INPU 

SEL 


ELTA2 sE 


ECT CASE de 
E 0 
D 
E 1 TO 3 
INT “Subroutine 50” 
CASE 4 TO 5 
PRINT. “Subroutine 100” 
(CASE. ALS 
PRINT 
END S 
LOOP 


Di 


lalui 
ECT 


BiL 


ECT CASE, come indicato nel successivo programma SCI 


T “Fai la tua. scelta (0 per. 


ELTA2. 


, X6 


finire)” 


(“Il valore dev'essere compreso fra 1 e 5” 
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PROCEDURE 


Dopo le subroutine, gli altri due tipi di moduli di programma sono costituiti dai sotto- 
programmi e dalle funzioni che, poiché si comportano per molti aspetti nello stesso 
modo, vengono detti globalmente procedure. 

In particolare i sottoprogrammi e le funzioni sono definiti secondo la medesima sintassi, 
che ha la forma generale indicata in Tabella 17. 


B nome [parametri] [STATIC] FUNCTION nome [parametri] [STATIC] 


EXIT SUB] EXIT FUNCTION] 


ND FUNCTION 


Tabella 17 - Confronto tra la sintassi dei sottoprogrammi e delle funzioni 


In essa: il nome può essere lungo fino a 40 caratteri, i parametri sono una lista di varia- 
bili (separate da virgole) impiegate all’interno della procedura o locali, l'attributo STA- 
TIC fa sì che le variabili locali mantengano i loro valori nel caso di successive chiama- 
te della procedura. 

In assenza dell'attributo STATIC le variabili sono considerate automatiche, cioè ven- 
gono inizializzate a zero o a stringhe nulle ogni volta che la procedura è chiamata. È 
tuttavia possibile usare l’attributo STATIC all’interno della procedura per rendere alcu- 
ne variabili automatiche e altre statiche, come vedremo nel successivo paragrafo 
“Variabili statiche e automatiche” (+ pag. 120). 

Le istruzioni opzionali EXIT SUB ed EXIT FUNCTION permettono di uscire anticipa- 
tamente da una procedura, di solito al verificarsi di una certa condizione. 

All’interno di una procedura non si possono usare le seguenti istruzioni: 


COMMON, DECLARE, DIM SHARED, OPTION BASE, 
TYPE...END TYPE, DEF FN, FUNCTION, SUB. 


Perciò non è possibile l’annidamento di procedure, né la definizione di funzioni dentro 
una procedura; tuttavia una procedura può richiamarne un’altra o una funzione DEF 
FN, come vedremo nel paragrafo “Procedure ricorsive” (+ pag. 123). 
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SOTTOPROGRAMMI (CALL, SUB...END SUB) 


I sottoprogrammi sono una specie di piccoli programmi all’interno del programma 
principale, e vengono da questo chiamati con l’istruzione CALL. Esempio: 


CALL Freccia (X%) 


Per vedere un semplice esempio di sottoprogramma, supponiamo di voler scrivere un 
programma che faccia muovere una piccola freccia (—->) dalla sinistra alla destra del- 
lo schermo. 

Il programma potrebbe avere la struttura del seguente listato PROVASUB 


REM + | PROVASUB KFX 
FOR. xo .Ò TO 70 
CALL Freccia (X5) 
NEXT XS. ì 
SUB. Freccia i 
LOCATE 10, : 

_ PRINI ii 


FOR pausa = 1 TO 100: vaxr pausa L 
LOCATE 10, X%- . 0 
IFX - 0 THEN PRINT. 1 

END SUB L ; 


Le prime quattro righe costituiscono il programma principale, che dopo aver pulito lo 
schermo richiama 70 volte il sottoprogramma Freccia, con un ciclo FOR...NEXT. In 
altri termini (vedi Figura 21), l'istruzione 


CALL Freccia (X5%) 


fa eseguire le istruzioni del sottoprogramma comprese fra LOCATE 5, X% e 
IF X% < 70 THEN PRINT “ “, mentre l’istruzione 

END SUB 
rimanda al programma principale, facendo eseguire l’istruzione NEXT X%. 


E 


EE I rn 
Programma principale, | Sottoprogramma | 


Cis 

FOR X% = 1 TO 70 SUB Freccia (X%) 

CALL Freccia (XS) —®» LOCATE 10; X3% 

NEXT X3% PRINT “>-_->” 

FOR pausa = 1 TO 100: NE 

I 10, X5% 
IF X% < 70 THEN PRINT ” 

END SUB 


Figura 21 - Ordine di esecuzione delle istruzioni in presenza di un sottoprogramma 


ti 
x 
Di 
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La X% che compare nella definizione della procedura Freccia (linea SUB...) è detta suo 
parametro, mentre la X% che compare nella chiamata della procedura (linea CALL...) è 
detta suo argomento. 

Si dice che il programma principale fornisce 0 passa l’arsomento al parametro, che in 
questo caso determina la colonna di schermo nella guale viene disegnata la freccia (la 
riga è sempre la 10). Il valore del parametro X% cambia costantemente da I a 70 per 
produrre l’effeito di movimento; affinché questo sia possibile è però ancora necessario: 


° cancellare la freccia appena disegnata prima di disegnare quella successiva. Ciò è ese- 
guito dalla coppia di istruzioni 


LOCATE 10, X% 
IF X% < 70 THEN PRINT “ ” 


e lasciare sullo schermo per un certo tempo la freccia appena disegnata, prima di can- 
cellarla. Ciò si può ottenere con il ciclo di ritardo 


FOR pausa = 1 TO 100: NEXT pausa 


(ma nel paragrafo “Pausa in un programma con DO...LOOP”, + pag. 122 vedremo 
un’alternativa migliore). 


Una procedura può avere più parametri, che vanno separati con virgole; bisogna però 
fare attenzione al fatto che gli argomenti indicati nella linea del programma principale 
che richiama la procedura (linea CALL...) siano dello stesso tipo e nello stesso ordine 
dei parametri indicati nella prima riga della procedura (linea SUB...). Se quindi si modi- 
fica la precedente chiamata in 


CALL Freccia (x3%, y!) 


anche la prima linea della procedura va modificata in 


SUB Freccia (x%, v!) 


Tuttavia, non è necessario che i nomi di variabile usati nella linea SUB siano gli stessi 
della linea CALL, ma solo che indichino variabili dello stesso tipo. Quindi, nell’esem- 
pio precedente, la linea SUB potrebbe anche essere scritta 


SUB Freccia (riga$è, colonna!) 


e naturalmente la procedura dovrebbe usare al suo interno queste ultime variabili 
(riga%, colonna!) anziché quelle della chiamata (x%, y!). 
Sui sottoprogrammi vedremo altre informazioni dopo aver parlato delle funzioni. 
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EDITAZIONE DI UN SOTTOPROGRAMMA 


Osserviamo che in fase di editazione, quando si preme il tasto <Invio> dopo avere scrit- 
to l’istruzione SUB Freccia (X%), lo schermo di QBASIC visualizza le seguenti linee: 


SUB Freccia (x%) 


END SUB 


Viene cioè inserita automaticamente la linea END SUB, mentre nel titolo della finestra 
superiore compare il nome del sottoprogramma (Freccia). Dopo aver scritto le altre 
istruzioni del sottoprogramma, si può salvare l’intero programma con il nome PROVA- 
SUB (l'estensione .BAS viene inserita automaticamente da QBASIC) ed eseguirlo pre- 
mendo il tasto <F5>. 

Per rivedere sullo schermo il listato del programma principale e i moduli che lo costi- 
tuiscono, si può: 


® selezionare la voce SUB nel menu Visualizza, oppure 
° premere il tasto <P2> 


File Modifica Visualizza Cerca Esegui Debug Opzioni 20 
(m——_____—_____—__yPROVASUB.BAS:Freccia ——————_—_——_—{[ît HH 
SU SUBS 

L 

PÎ| Scegliere il programma da modificare 
F 

L PROVASUB.BAS 

d Hreccia 
EN 


<Guida> 


<Finestra attiva> <Elimlna> <Annulla> 


Immediato I 
f 


F1=Guida Invio=Esegui Esc=Annulla Tab=Campo seg. Freccia=Voce seg. 


Figura 22 - Videata con i titoli del programma principale e dei suoi sottoprogrammi 


Compare la videata di Figura 22, che permette di richiamare un modulo qualsiasi, ed 
eventualmente annullarlo. 
Se si richiama il modulo principale, si vede che ora esso inizia con la linea 


DECLARE SUB Freccia (x%) 


aggiunta anch'essa da QBASIC, quando il programma è stato salvato. 
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FUNZIONI 
(FUNCTION...END FUNCTION) 


Le funzioni sono anch'esse una specie di piccoli programmi all’interno del programma 
principale ma, diversamente dai sottoprogrammi, restituiscono sempre un valore, nume- 
rico o di stringa, al programma principale, assegnandolo a una variabile che ha lo siesso 
nome della funzione. 
Altra differenza con i sottoprogrammi è che una funzione definita dall’utente viene 
chiamata dal programma principale nella stessa maniera delle funzioni incorporate di 
QBASIC (quali quelle numeriche e di stringa, viste nei capitoli 6 e 7), cioè usando il 
suo nome in un'espressione. Ad esempio, la funzione Richiesta$ potrebbe venire chia- 
mata dal programma principale in uno dei seguenti modi: 


PRINT Richiesta$s 
Ri$ = Richiesta$s 


Scriviamo come esempio un programma che chieda all’utente di digitare il suo nome, e 
quindi calcoli tramite una funzione il numero dei caratteri che ha digitato. Il listato 
potrebbe essere quello di Figura 23. 


CLS 
Ri$ = Richiestas 
LOCATE 2, 1 
PRINT “Il tuo nome è lungo"; LEN(Ri$S); “caratteri” 


FUNCTION Richiesta$ 
; LOCATE 20, 1 


PRINT “Scrivi qui sotto iL tuo nome” 
PRINT “- uu 

. PRI P doti i o 
PRINV > 


LOCATE 22, 3 
LINE INPUT ts 
‘RichiestaS. = r$ 
END FUNCTION 


Figura 23 - Listato di un programma che usa una funzione definita dall’utente 


Il programma principale, dopo avere pulito lo schermo, chiama la funzione Richiesta$, 
che chiede all’utente di digitare il suo nome e lo memorizza nella variabile r$. L’istru- 
zione di assegnazione 


Richiesta$S = rs 


fa sì che la stringa scritta dall’utente sia restituita dalla funzione al programma princi- 
pale. Una volta ricevuta la stringa, il programma principale ne indica la lunghezza, con 
un messaggio posizionato tramite l'istruzione LOCATE. 
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Anche in questo caso QBASIC inserisce automaticamente la riga 


END FUNCTION 


in fase di editazione e, dopo che il programma è stato salvato, la riga 


DECLARE FUNCTION RichiestasS () 


all’inizio del programma principale. 


Nota. Osserviamo che se un modulo di programma chiama una funzione definita in un 
altro modulo, QBASIC non inserisce automaticamente l'istruzione DECLARE nel 
modulo chiamante, ma lascia questo compito all’utente. Se un modulo che chiama una 
funzione definita in un altro modulo non contiene all’inizio l’istruzione DECLARE, la 
funzione chiamata viene considerata come il nome di una variabile. 


CONFRONTO TRA FUNCTION E DEF FN 


QBASIC conserva dalle versioni precedenti la possibilità di definire una funzione con 
l'istruzione DEEP FN (potenziata rispetto al passato), oltre che con la nuova istruzione 
FUNCTION. 
Tuttavia, FUNCTION presenta rispetto a DEF FN diversi vantaggi, elencati in Tabella 
18 (alcuni di essi saranno spiegati nei paragrafi successivi). 


FUNCTIO DEF EN 


Tutte le variabili sono locali, sebbene sia | Tutte le variabili sono globali 


possibile usare variabili globali nel modulo corrente, sebbene possano 
essere rese locali 


Il passaggio delle variabili da parte del Il passaggio delle variabili da parte 
programma principale avviene del programma principale avviene 
per riferimento o per valore (+ pag. 118) | solo per valore (+> pag. 119) 


Permette di scrivere funzioni ricorsive Non permette di scrivere 
i (> pag. 123) funzioni ricorsive (pag. 123) 
La procedura può essere definita La funzione deve essere definita e 
in un modulo e usata nello stesso usata nello stesso modulo, 
o in un altro (nel secondo caso e la definizione deve precedere l’uso 


va dichiarata in un’istruzione DECLARE, 
come indicato nel paragrafo precedente) 
| 


Ì x ae 
Il nome può essere qualsiasi, i Ji nome deve iniziare 
purché non inizi con le lettere “FN” i con le lettere “FN” 


= | 
Tabella 18 - Differenze tra le istruzioni FUNCTION e DEF FN 
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ARGOMENTI E PARAMETRI DELLE PROCEDURE 


La precedente funzione Richiesta$ non riceveva dal programma principale valori o 
argomenti su cui operare, mentre in alcuni casi ciò è necessario. Ad esempio, se si 
volesse definire una funzione (Potint&) che calcola la potenza intera di un numero inte- 
ro, impiegando per entrambi dati di tipo intero LONG, si potrebbe scrivere: 


FUNCTION Potint& (X&, Y&) STATIC 
Pot& = 1 
FOR I& = 1 TO Y& 
Pot& = Pot& * X& 
NEXT I& 

Potint& = Pot& 
END FUNCTION 


Anche in questo caso i nomi di variabili X&, Y& che compaiono nella definizione della 
funzione dopo il suo nome (Potint&) sono detti parametri, e ricevono un valore dal pro- 
gramma principale quando esso chiama la funzione (ad esempio usando il suo nome in 
un'istruzione PRINT). Quindi, riassumendo: 


Gli argomenti sono costanti, variabili o espressioni che vengono passati a una SUB o 
a una FUNCTION quando la SUB o la FUNCTION vengono chiamate. 

I parametri sono dei “segnaposto” per gli argomenti che compaiono in una defini 
zione di procedura. 


Come indica la Figura 24, quando si chiama una procedura, gli argomenti vengono 
inseriti nelle variabili della lista dei parametri, in modo che il primo parametro riceve il 
primo argomento, il secondo parametro riceve il secondo argomento, e così via. 


Argomenti 


Chiamata di procedura CALL Modulo B!, “verde”) 
Definizione 1 4 Y 
di procedura SUB. Modulo (P1%, P2!, Col$) STATIC 


Parametri 


Figura 24 - Argomenti e parametri di una procedura 


La Figura 24 mostra anche un’altra regola già enunciata: sebbene non sia necessario che 
i nomi delle variabili siano gli stessi in una lista di argomenti e in una lista di parametri, 
il numero dei parametri deve essere uguale al numero di argomenti, e anche i tipi degli 
argomenti e dei parametri che si corrispondono devono essere gli stessi. 
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Una lista di argomenti è costituita da uno o più dei seguenti elementi, separati da ©”: 


© costanti 

®° espressioni 

° nomi di variabili 

° nomi di matrici seguiti da parentesi aperta e chiusa. 


Una lista di parametri è costituita da uno o più dei seguenti elementi, separati da ©”: 
° nomi di variabili (quali X$ o X AS STRING), ma non di stringhe a lunghezza fissa 
(quale X AS STRING * 10) 


e nomi di matrici seguiti da parentesi aperta e chiusa. 


Ad esempio, la lista dei parametri che compare nella prima linea della definizione di un 
sottoprogramma potrebbe essere la seguente: 


SUB Modulo (A%, Matrice(), Varrec AS Tiprec, Col$) 


In questo caso, il sottoprogramma Modulo potrebbe essere chiamato dall’istruzione 
CALL del seguente esempio, che gli passa quattro argomenti del tipo corretto: 


TYPE Tiporec 

Nome AS STRING * 12 
Codice AS LONG 

END TYPE 
DIM Varrec AS Tiporec 

CALL Modulo (X3%, M(), Varrec, “codice’”) 


PASSAGGIO DI COSTANTI ED ESPRESSIONI 


La lista degli argomenti passati a una procedura può contenere delle costanti: natural 
mente una costante di stringa deve essere passata a un parametro di stringa, e una 
costante numerica a un parametro numerico. 

Se una costante numerica di una lista di argomenti non è dello stesso tipo del parametro 
corrispondente nell’istruzione SUB o FUNCTION, la costante viene “forzata” nel tipo 
del parametro. Esempio: 


CALL Prova (4,6, 4.1) 
END DE 

SUB. Prova (X%,  Y%) 
PRINT X%, Y3 

END SUB <F5> 


Ul 
SS 


117 


A una procedura si possono passare anche espressioni risultanti da operazioni su varia- 
bili e costanti. 

Come nel caso delle costanti, le espressioni numeriche che non si accordano con il tipo 
dei loro parametri sono forzate in essi. 


PASSAGGIO DI ARGOMENTI PER RIFERIMENTO 


Come ho accennato al paragrafo “Che cosa sono le variabili e le costanti” (+ pag. 19), 
ogni variabile di programma ha un proprio indirizzo o locazione di memoria in cui è 
memorizzata. Quando un programma chiama una procedura e le passa delle variabili, le 
passa in realtà gli indirizzi che tali variabili hanno in memoria. 

Quest’operazione, detta passaggio per riferimento, fa sì che tutti i cambiamenti opera- 
ti da una procedura sui suoi parametri si ripercuotano anche sugli argomenti che il pro- 
gramma principale le ha passato. 

Ad esempio il seguente programma PASSRIF, che usa una procedura per cambiare le 
“e” minuscole di una frase in maiuscole, modifica sia il valore del proprio argomento 
Prova$ sia del parametro A$ della procedura. 


EM. dr PASSRIF aa 

FICLARE SUB Cambia. i 86) . cu 

TO ovaf = “frase con tutte i ci a... 
RINT “Prima della chiamata al Sen: È Prova$ . 
ALL Cambia(Prova$, te"). °_’’0@ 
RINT. “Dopo la chiamata al sottoprogramma: ; Brovaî 


R 
D 
p 
p 
DI 


SUB. Cambi. (a$, BS) seario 
Inizio 1. cl ___ 
Trova = INSIR(Inizio, AS, BS) 

IF Irova > THEN... - 


MIDS(AS, Trova) = 

Inizio = Inizio + 1 

END EF. È 
LOOP WHILE Trova > 0. 
END SUB 
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PASSAGGIO DI ARGOMENTI PER VALORE 


Se non si vuole che una procedura cambi il valore dell’argomento che le viene passato 
dal programma principale, è necessario che questo passi il valore contenuto nella varia- 
bile, anziché il suo indirizzo. 

Quest’operazione, detta passaggio per valore, viene eseguita da QBASIC copiando la 
variabile in una locazione di memoria temporanea, e quindi passando l’indirizzo di que- 
sta locazione temporanea; dato che la procedura non conosce l’indirizzo della variabile 
originaria, non può modificarla e cambia invece la sua copia. 

Per passare una variabile per valore è sufficiente racchiuderla tra parentesi nella linea 
CALL che chiama la procedura, come avviene nel seguente programma passual, che 
passa A per valore, B per riferimento a un sottoprogramma. 


"REM *** PASSUAL i i. 
DECLARE SUB Prod : i, vi) 
ii L_1. 


on della « iamata si sottoprogramma, n A; i. i 
Ni: “Dopo . chiamata al sottoprogramia, n- A ,B-;B8 


«SUB Prod & . STATIC 
L....._ 
a “nel sottoprogramma, xx. t-Y 


Esso produce la seguente uscita, che dimostra quanto detto: 


Prima della chiamata al sottoprogramma, A = 1, B= 1 
Nel sottoprogramma, X = 2, Y = 3 
Dopo la chiamata ali sottoprogramma, A = 1, B = 3 
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VARIABILI STATICHE E AUTOMATICHE 
(STATIC) 


Come abbiamo visto al paragrafo “Procedure” (+ pag. 93), se si inserisce l'attributo 
STATIC nella linea di definizione di una procedura, tutte le variabili locali della proce- 
dura sono considerate statiche, mentre potrebbe essere necessario che alcune di esse 
rimangano automatiche. Per rendere ciò le variabili che si vogliono rendere statiche ven- 
gono elencate in un'istruzione STATIC situate nel corpo della procedura, anzichè nella 
sua definizione. Tutte le altre variabili saranno considerate automatiche. Nel seguente 
sottoprogramma Prova, entrambe le variabili A$ e B$ sono locali, ma A$ è automatica, 
cosicché viene reinizializzata a stringa nulla ogni volta che si chiama Prova, mentre B$ è 
statica, e così conserva il suo valore nelle successive chiamate alla procedura. 


ge sun on 


EX OX 
* 
* 
* 


ÀMBITO DI UNA VARIABILE (DIM SHARED) 


Abbiamo visto che il programma principale può fornire o passare a una procedura uno 
o più argomenti, necessari per il suo funzionamento. Si osservi che il programma 
PROVASUB visto nel paragrafo “Sotioprogrammi” (-> pag. 111) non funzionerebbe 
se le istruzioni CALL Freccia (X%) e SUB Freccia (X%) fossero 
sostituite rispettivamente da CALL Freccia eda SUB Freccia, e ciò mal 
grado il sottoprogramma usi esattamente la stessa variabile X% del programma princi 
pale. Ciò perché ogni modulo di programma assegna alle proprie variabili dei valori in 
modo indipendente da quelli che le stesse variabili possono assumere in altri moduli. 


120 


Questo fatto si esprime anche dicendo che una variabile è locale al modulo in cui viene 
definita, o che l’àmbito di una variabile è costituito dal modulo in cui è definita, o che 
una variabile è visibile solo dal modulo in cui è definita. 

Pertanto, le istruzioni 


CALL Freccia 
e 


SUB Freccia 


determinerebbero la situazione seguente: mentre. il programma principale assegna a X% 
i successivi valori 1, 2, ... 70, nel sottoprogramma X% avrebbe costantemente il valore 
0 (che è il valore di inizializzazione di tutte le variabili numeriche, > pag. 19; quindi il 
tentativo di eseguire l’istruzione LOCATE 10, 0 determinerebbe un messaggio di 
errore, in quanto non esiste una posizione di schermo con queste coordinate (+ pag. 
25). Se invece si vuole che una variabile usata da un sottoprogramma abbia in esso lo 
stesso valore che le viene assegnato dal programma principale, occorre che questo passi 
tale valore al sottoprogramma come suo argomento, come ho già detto varie volte. 

Se poi si vuole che una variabile definita nel programma principale sia visibile da qual 
siasi modulo (0, in altri termini, che il suo àmbito sia costituito dall’intero programma), 
essa deve essere dichiarata come globale (o condivisa) nel modulo principale. 

Ciò si ottiene con un'istruzione del tipo 


DIM SHARED X% 


Il programma PROVASUB di pag. 11 si può quindi riscrivere come indicato in Figura 25. 


DIM SHARED x ! 
CLS - 
FOR. x% = i. TO 0 
CALL Freccia. 
NEXT X% 


(SUB Freccia - L 
LOCATE 10, XS. 


PRINT ir . LL 0° 
FOR pausa = 1 "TO 100: NEXT pausa... 
LOCATE 0, X3 i ii . 

IF XS < 70 THEN PRINT. # | * 


ND SUB 


Figura 25 - Listato di programma che fa muovere una freccia sullo schermo impiegan- 
do una variabile globale 


L’uso di variabili globali, se in apparenza semplifica l’attività di programmazione, pro- 
duce in realtà dei programmi difficili da leggere e da correggere: ad esempio, se una 
variabile assume un valore che dà luogo a problemi, è necessario esaminare l’intero 
programma per trovare la causa dell’errore. Pertanto è bene ridurre al minimo ii nume- 
ro di variabili globali, e usare quando possibile la tecnica del passaggio di argomenti 
alle subroutine. 
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PAUSA IN UN PROGRAMMA CON DO...LOOP 


Come abbiamo visto al paragrafo “Pausa in un programma con FOR...NEXT” (+ pag. 
67), l’uso di un ciclo vuoto FOR...NEXT per introdurre una pausa nell’esecuzione di 
un'istruzione comporta lo svantaggio che la durata della pausa varia al variare del com- 
puter, della versione del BASIC o delle opzioni di compilazione. 

Per ottenere una pausa di durata precisa e indipendente dalla velocità di calcolo del 
computer si può usare il ciclo DO...LOOP inserito nel seguente sottoprogramma ciclo- 
rit, al quale il programma principale passa il numero di secondi voluti per il ritardo 
(temporit). 


M PROGRAMMA PRINCIPAL 


lea 


RI 


LI] 


CALL ciclorit(10) 


bi 
®) 


SUB ciclorit (temporit) STATIC 


finecicl = TIMER + temporit 
DO WHILE TIMER < finecicl 
LOOP 

END SUB 


In questo sottoprogramma, TIMER è una funzione incorporata (+ pag. 54) che fornisce 
il numero di secondi trascorsi dalla mezzanotte fino al momento attuale (che è l’inizio 
della pausa), e finecicl è il numero di secondi, sempre a partire dalla mezzanotte, dopo 
il quale terminerà la pausa (vedi lo schema di Figura 26). Il sottoprogramma ciclorit 
viene eseguito fin tanto che TIMER risulta minore di finecicl. 


DD <------ TIMER ----- > inizio <- temport. —> fine 
pausa pausa 


Î I 
| Î 


< finecicl |> 


Figura 26 - Primo schema temporale del sottoprogramma ciclorit 


In realtà il sottoprogramma dovrebbe prevedere anche il caso che la pausa inizi prima 
di mezzanotte e finisca dopo mezzanotte, come indica lo schema di Figura 27. 
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E inizio DI fine 

pausa pausa 
| : 
<_— TIMER D> < temport ——|> 
<|___ secgior ——___l 


<q finecicl Da 


Figura 27 - Secondo schema temporale del sottoprogramma ciclorit 


In questo caso finecic] risulta maggiore del numero di secondi contenuti in un giorno 
(calcolato nella costante secgior), e va diminuito di tale numero; in tal modo rappresen- 
ta la sola parte della pausa che va da mezzanotte alla fine, e che viene realizzata come 
nel sottoprogramma già visto. La parte della pausa che va dall’inizio a mezzanotte vie- 
ne realizzata ripetendo un ciclo fino a che TIMER ha un valore positivo, cioè fino a 
mezzanotte, quando viene reimpostato a zero. 

Il sottoprogramma completo risulta pertanto il seguente. 


temporit) STATIC 


SUB ciclorit . “i u® 

_ CONST secgior = 24s * 608 * 60& ______ 
fimecici — TIMER + teiboril ——, _° 

- IF finecicl > secgior THEN... 

_finecici = fisecict - secgiar - °° 
DO WHILE TIMER > finecicl _____. 

ENDIE {FF RRR-"—. 

_DO WHILE TIMER < finecicl 

END SUB 


PROCEDURE RICORSIVE 


A differenza delle precedenti versioni, QBASIC permette di scrivere procedure ricor- 
sive, cioè programmi che chiamino se stessi, oppure che chiamino altre procedure che a 
loro volta chiamano i programmi di partenza. 

Un modo semplice per illustrare il concetto di ricorsività è di considerare il fattoriale di 
un numero intero ni, che si indica con il simbolo n! e si può definire con la seguente for- 
mula: 


ni = nta li) E 
Ad esempio, 5! si calcola come segue: 
piz*da 3271 =_.120 


Ma il fattoriale di un numero intero si può definire anche con la seguente formula ricor- 
siva: 
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ni = n*(n-1)! 


In questo caso, 5! si calcolerebbe come segue: 


5! = 5*4! 
di = 4*31! 
Sil = 20 
Dot ser ZETA 
Tdi 


A questo punto, 0! deve essere definito e, per ottenere un risultato uguale a quello forni- 
to dalla definizione precedente, si deve porre 0! = 1. La precedente formula ricorsiva 
può essere inserita nella funzione Fattor#, chiamata c definita dal programma che 
segue. 


DECLARE. FUNCTION Fattori e) ’0@Ò@0@t 
Formato$ = “###_!° Cc... 

_...{i.... 
INPUT “Scrivi un numero da Di a 20 


(o -1 per finire Num& . 
Fi Num& >= 0 AND uri <= 20 THEN 
pool Fornatos, Nums; F 


D FUNCTTON 


- Dc 


Osserviamo che, sebbene la precedente procedura ricorsiva impieghi variabili statiche 
(essendo questa la modalità preimpostata), è in generale meglio usare variabili automa- 
tiche. In tal modo non ci si deve preoccupare del fatto che le chiamate ricorsive della 
procedura sovrascrivano i valori delle variabili da una chiamata precedente. 
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Capitolo 12 


File di programma e di dati 


FILE DI PROGRAMMA: SALVATAGGIO 


ì programmi QBASIC visti finora risiedono fisicamente nella memoria centrale (o 
RAM) del computer, dalla quale vengono cancellati al suo spegnimento. Se invece si 
vogliono memorizzare in modo permanente per un utilizzo futuro, devono essere 
registrati su un disco (hard o floppy), diventando in tal modo dei file di programma. 
Dal punto di vista fisico, un file è quindi una particolare zona di un disco magnetico, 
dove sono memorizzate informazioni in modo permanente ma modificabile. 

La procedura per registrare (o “salvare”) un file di programma è la seguente: 


® si attiva la prima riga dello schermo di QBASTC (con il tasto <Alt>) 

° si apre la finestra File (con il tasto <Invio> o con <F>) 

e si sceglie una delle voci Salva, Salva con nome o Esci 

e se si è scelto Salva o Salva con nome, si scrive il nome che si vuole dare al file. La 
sessione di lavoro con QBASIC continua presentando il file che si è appena salvato 

° se si è scelto Esci, si risponde <Sì> alla domanda 


Il file non è stato salvato. Salvare? 
quindi si scrive il nome che si vuole dare al file. In tal modo la sessione di lavoro con 
QBASIC termina. Se si vuole salvare un file di programma sul floppy disc presente nel 


drive A, bisogna far precedere il nome del file dai caratteri A: (scrivendo, ad esempio, 
A:PROVA). 


FILE DI PROGRAMMA: APERTURA 


La procedura per richiamare (o “aprire”) un file di programma salvato in precedenza è 
la seguente: 


° si attiva la prima riga dello schermo di QBASTC (con il tasto <Alt>) 

® si apre la finestra File (con il tasto <Invio> o con <F>) 

° si sceglie la voce Apri 

° si scrive il nome del file da aprire (non occorre l’estensione .BAS), oppure lo si sce- 
glie nella lista proposta a video (per “entrare” nella finestra si preme il tasto del tabu- 
latore). 


Il file così aperto può essere eseguito o modificato, e in tal caso essere salvato con 0 
senza le modifiche apportate. 


FILE DI DATI 


Oltre ai file di programma, QBASIC permette anche di utilizzare file di dati, costituiti 
non già da parole chiave convenzionali, ma da informazioni scritte dall’utente secondo 
la sintassi e il formato a lui più congeniali. 

Dal punto di vista logico, un file di dati è costituito da uno 0 più blocchi di informazio- 
ni detti record relative a diversi oggetti o individui; questi potrebbero essere, ad esem- 
pio, i libri di una biblioteca o gli impiegati di un’azienda. Il record di ogni individuo è 
suddiviso a sua volta in un certo numero di campi, ciascuno dei quali contiene i diversi 
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tipi di informazioni relative a quell’individuo. 
L'impiego di file di dati in programmi QBASIC semplifica grandemente i seguenti 
compiti: 


© creare, manipolare e memorizzare grandi quantità di dati 
° accedere a diversi insiemi di dati in un programma 
° usare lo stesso insieme di dati in diversi programmi. 


FILE SEQUENZIALI E AD ACCESSO CASUALE 


QBASIC permette di utilizzare due tipi di file dati: 


file (ad accesso) sequenziale, nei quali i record dei diversi individui possono avere 
lunghezze diverse (vedi Figura 28) 


I° reco — ERRE RE ROE 


1° campo 2° campo 3° campo 


2° record —» | | | | | 


1° campo 2° campo — 3° campo 


#recod + | | | [| PREMERE: ese sb 


1° campo 2° campo 3° campo 


Figura 28 - Record e campi in un file sequenziale 


* file (ad accesso) casuale, nei quali i record hanno tutti la stessa lunghezza (vedi Figura 28). 


1° campo 2° campo 


1 


Cognome 


| 
| 


IHIInt 


Figura 29 - Record e campi in un file casuale 


1° record ——» 
2° record > 


IRE 
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La diversa denominazione ha origine dalle diverse modalità di accesso ai dati. Un file 
sequenziale può essere paragonato a una cassetta audio, sulla quale siano registrati vari 
brani musicali: dato che essi possono essere di lunghezze differenti, l’unico modo per 
trovare un particolare brano è di far scorrere in sequenza tutto il nastro che lo precede. 
In modo analogo, per accedere ai dati del record numero 100, è necessario leggere tutti i 
record compresi fra il numero 1 e il 99, impiegando quindi un tempo (detto tempo di 
accesso) piuttosto lungo. 
Invece un file ad accesso casuale è simile a un disco LP o CD, nel quale è possibile 
posizionare direttamente la testina di lettura sul brano desiderato, senza dover ascoltare 
tutti quelli che lo precedono. La stessa cosa succede con un file casuale: dato che tutti i 
suoi record hanno la stessa lunghezza, è possibile accedere a un record qualsiasi sempli- 
cemente indicandone il numero, e quindi impiegando un tempo di accesso più breve 
rispetto a un file sequenziale. 

A parità di dati contenuti, i file sequenziali occupano uno spazio minore di quelli casua- 
li e, come vedremo, vengono trattati in modo diverso. Inoltre, devono essere letti sem- 
pre per intero, anche se si ha bisogno di conoscere un solo dato memorizzato, mentre la 
modifica di un dato richiede la riscrittura dell’intero file; per queste ragioni sono adatti 
per contenere informazioni soggette ad aggiornamenti poco frequenti. 

Invece i file ad accesso casuale, grazie alla loro organizzazione più regolare, permetto- 
no l’accesso (per la lettura o la modificazione) al singolo dato, e sono quindi particolar- 
mente adatti per contenere informazioni soggette ad aggiornamenti frequenti. 


SALVATAGGIO E APERTURA (OPEN) 


A differenza dei file di programma, i file dati vengono salvati e aperti non scegliendo 
dei comandi presentati a video, ma eseguendo semplici programmi QBASIC, costituiti 
da opportune istruzioni. Ciò è necessario in quanto i dati che costituiscono un record, 
prima di venire scritti su disco, sono parcheggiati (in gergo si dice allocati) in una parti- 
colare zona di memoria detta memoria di transito (0 buffer) del file; qui essi vengono 
organizzati per il successivo invio al disco. In maniera analoga, non è possibile leggere 
direttamente i file dati presenti su un disco, ma solo dopo averli trasferiti - ed eventual 
mente organizzati - nella memoria di transito. 

Prima di eseguire su un file dati un’operazione di scrittura (detta OUTPUT), di lettura 
(INPUT) o di aggiunta (APPEND), è necessario aprire il file con un'istruzione OPEN. 
L'istruzione OPEN contiene, come vedremo nei paragrafi successivi, l’indicazione del 
tipo di operazione che si vuole eseguire sul file. Essa inoltre associa al file un numero 
intero compreso fra 1 e 255, che viene usato come riferimento abbreviato nelle succes- 
sive operazioni di lettura/scrittura sul file. 


CHIUSURA (CLOSE, RUN) 


Dopo avere aperto un file, è necessario chiuderlo con l'istruzione 


CLOSE [numero di file] 


Questa ha due effetti: scrive nel file tutti i dati presenti nel buffer e libera il numero di 
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File associato al file, che può così essere usato in un’altra istruzione OPEN. Usata senza 
numero di file come argomento, l’istruzione CLOSE chiude tutti i file aperti. 

Un file dati viene chiuso, oltre che con l'istruzione CLOSE, anche se il programma che 
esegue l’operazione di ingresso/uscita ha termine, oppure trasferisce il controllo a un 
altro programma, con l’istruzione 


RUN PROGRAMMA 


Questa viene scritta di solito come ultima istruzione di un programma, se si vuole che al 
termine sia eseguito il programma indicato (anch’esso con estensione .BAS). 


FILE SEQUENZIALI 


ve 


CREAZIONE (WRITE #) 


Un programma che crea un file sequenziale di nome Misure.dat (0, se già esiste, lo 
apre) e vi scrive dei record costituiti dai campi Nome, Cod. fisc., Altezza, Età può esse- 
re il seguente: 


‘REM +e *SCRIVESHONA* | _. 
OPEN "Misure.dat FOR APPEND i. #l 
DO — 


- Invio> per terminare) : «, Nomes. 


In esso l’istruzione 


OPEN "Misure.dat" FOR APPEND AS #1 


crea (0 apre) un file dati dii nome Misure.dat nella modalità di scrittura (o di aggiunta) 
di dati nei suoi record. 
1 ciclo 


DO 


LOOP UNTIL Nome$S = "" 
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permette di scrivere quanti record si vogliono, e termina quando si preme il tasto 
<Invio> invece di scrivere un Nome. 
Le varie istruzioni 


INPUT 


assegnano 1 dati immessi da tastiera a variabili di stringa o numeriche, i cui contenuti 
sono poi copiati nei campi del file dall’istruzione 


WRITE #1 


Quando l’istruzione WRITE # scrive i dati nei campi, delimita ogni variabile di stringa 
con le virgolette ("), separa i campi con la virgola (,) e pone alla fine di ciascun record i 
caratteri di ritorno carrello (CR) e avanzamento linea (LF), che corrispondono alla pres- 
sione del tasto <Invio>, come è indicato in Figura 30. 

Naturalmente questi caratteri non sono visualizzati quando si va a leggere il file con uno 
dei programmi di lettura che esamineremo nei prossimi paragrafi, mentre si possono 
vedere con l'istruzione LINE INPUT # (esaminata più avanti), con il comando TYPE di 
MS-DOS o con un qualsiasi programma editore di testo. 


creo + [TARISDTITPOFAITIFEFA 


>» 4 >» <> 
1° campo 2° campo 3° campo 
2° record — ["]B]l AÎN c|H INN vv]. ‘|, 4\CRLE 
< DP <> D < 
1° campo 2° campo — 3° campo 


; P]rfo[c]u ra[t]. ‘].]7]5 CALE 
< >» «> 


1° campo 2° campo 3° campo 


3° record A L'Jejs P|o[s|i t|o ‘| | 


Figura 30 - Organizzazione dei dati in un file sequenziale 


Apertura per aggiunta (APPEND) e per scrittura (OUTPUT) 


Quando si crea un file sequenziale, è anche possibile aprirlo in modalità di scrittura 
(OUTPUT) invece di aggiunta (APPEND), scrivendo quindi 


OPEN "Misure.dat" FOR OUTPUT AS #1 


anziché 


OPEN "Misure.dat" FOR APPEND AS #1 
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Tutiavia, la modalità di scrittura (OUTPUT) determina la cancellazione di eventuali 
dati già presenti nel file, per cui è più sicuro e quindi preferibile usare la modalità 
APPEND tutte ie volte che si devono scrivere dei dati, riservando la OUTPUT ai casi 
(rari) in cui si voglia riscrivere il file. 


Nota. L'apertura in modalità di scrittura si può riferire anche a una periferica quale la 
stampante (che ha come nome o indirizzo LPT1:); quindi un’istruzione del tipo 


OPEN “LPT1l:” FOR OUTPUT AS #1 


ha l’effetto di inviare alla stampante i dati che saranno elaborati successivamente 
(vedremo un esempio di utilizzo nel paragrafo “Routine di gestione degli errori, a pag. 
186). 


FILE SEQUENZIALI: LETTURA (INPUT #, EOF) 


Per leggere un file sequenziale si deve scrivere un programma simile a quello usato per 
la sua creazione, e che in particolare preveda la lettura (INPUT) di tutti i campi dei 
record in altrettante variabili. 

Un programma per leggere il file Misure.dat scritto in precedenza potrebbe essere il 
seguente: 


-dat' FOR INP 


In esso l’istruzione 


INPUT #1, Nome$s, Cf$, Altezza, Eta 


legge un record alla volta, nell’ordine di immissione, dal file Misure.dat, e assegna i 
suoi campi alle variabili Nome$, Cf$, Altezza, Età. 
La funzione 


EOF 


(End Of File) controlla se l’istruzione INPUT #1 ha letto l’ultimo record, nel qual caso 
fornisce il valore -1 (vero) e il ciclo di richiesta dati ha termine; in caso contrario EOF 
fornisce il valore 0 (falso) e viene letto il record successivo del file. 

Il programma precedente può essere leggermente modificato come segue, se si voglio- 
no visualizzare i soli record con età inferiore a un determinato valore: 
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REM: ***LEGGESEO2I** | vl 

OPEN "Misure.dat" FOR INPUT AS #1 
fi. con età inferiore a"; Emax 
DO UNTIL EOF(1) | ;)]OGSgeàà‘"”"”""” 
INPUT #1, Nome$, Pesos, Altezzag, Bi. . 


n. 
= 
LE 


| Peso$, Alvezzag, nta 


ALTRE POSSIBILITÀ DI LETTURA 


Finora abbiamo usato l’istruzione INPUT # per leggere un record (cioè tutti i caratteri 
che precedono una sequenza CR-LF) e assegnare i suoi diversi campi alle variabili elen- 
cate dopo INPUT #. Vi sono altre due possibilità di leggere dati da file sequenziali, sia 
come record (LINE INPUT #) sia come sequenze di byte non formattate (INPUT$). 


Istruzione LINE INPUT # 


L'istruzione LINE INPUT # permette a un programma di leggere un record (o linea di 
testo) esattamente come è scritto in un file, senza interpretare le virgolette e le virgole 
come delimitatori di campo. Ciò è particolarmente utile in programmi che lavorano con 
file di testo ASCII. LINE INPUT # legge un'intera linea di un file sequenziale in una 
singola variabile di stringa. Il seguente programma legge ogni linea del file Misure, 
quindi la visualizza sullo schermo. 


REI . ***LEGGESEO3#**_ o'' 
SER e. Dar 795 INPUT AS fi 
LINE i i Temps. 

PRINT Temps — 

‘LOOP. 


Funzione INPUT$ 


Un altro modo per leggere dati da un file (sequenziale, ma anche di altro tipo), è di usa- 
re la funzione INPUT$. A differenza di INPUT # e di LINE INPUT #, che leggono una 
linea per volta da un file sequenziale, INPUT$ legge un numero specificato di caratteri 
da un file, secondo la sintassi della seguente istruzione: 


TS = INPUTS(50, #1) 


che legge 50 caratteri dal file numero 1, e li assegna alla variabile T$. 
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Un esempio di utilizzo della funzione INPUTS$ è costituito dal programma seguente, 
che chiede ii nome di un file da aprire e lo copia sullo schermo, visualizzando solo i 
caratteri alfanumerici e di interpunzione (quelli cioè compresi fra il carattere ASCII 32 
e il 126). 


REM ***LEGGESEO4*** “_. .. \ 
INPUT. "Nome del file. da -__.__... 


PRINT T$; 
| CASE ELSÌ . 
END SELEC l '’ 
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Capitolo 13 


File ad accesso casuale 


ORGANIZZAZIONE DEI RECORD 


In un file dati ad accesso casuale i record sono memorizzati in modo differente rispetto 
a un file sequenziale. Dato che ogni record e ogni campo hanno una lunghezza fissa, 
queste lunghezze determinano il punto d’inizio e di fine di ogni record o campo, senza 
bisogno di usare virgole per separare i campi, né sequenze CR-LF per separare i record. 
L’organizzazione dei record in un file ad accesso casuale è indicata in Figura 31. 


1° Record 2° record 


1° Campo 2° campo 3°campo 1° Campo 2° campo 3°campo 


Figura 31 - Organizzazione dei record in un file ad accesso casuale 


AGGIUNTA DI DATI 


Un programma che aggiunga dati a un file ad accesso casuale è costituito dalle tre parti 
seguenti: 


° definizione dei campi del record 

° apertura del file nella modalità ad accesso casuale e indicazione della lunghezza del 
record 

° immissione dei dati nel record e sua memorizzazione. 


Esaminiamo separatamente ciascuna parte. 


DEFINIZIONE DEI CAMPI DEL RECORD 
(TYPE...END TYPE 


Il record viene definito con l'istruzione TYPE...END TYPE, che permette di creare un 
tipo di dati composito, cioè costituito da stringhe ed elementi numerici. Ad esempio, 
per definire 


e Cognome come stringa lunga 15 caratteri 
e Nome come stringa lunga 10 

e Età come intero 

° Stipendio come singola precisione 


si può scrivere: 
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TYPE Tiprec 

Cognome AS STRING * 15 
Nome AS STRING * 10 
Eta AS INTEGER 
Stipendio AS SINGLE 
END TYPE 


Segue la dichiarazione di una variabile (in questo caso Varrec) del tipo Tiprec appena 


definito con l'istruzione: 


DIM Varrec AS Tlprec 


APERTURA DEL FILE E INDICAZIONE 


DELLA LUNGHEZZA DEL RECORD (LEN =) 


A differenza dei file sequenziali, nei file ad accesso casuale non c’è più differenza tra 
apertura per lettura e per scrittura. La lunghezza del record ad accesso casuale, che ha 


come valore preimpostato 128 byte, dev'essere uguale a quella della variabile 


Varrec. 


Ciò si ottiene con la clausola LEN = nell’istruzione OPEN. Continuando con l'esempio 


precedente, per aprire un file di nome Organico.dat si scriverebbe: 


OPEN "Organico.dat" FOR RANDOM AS #1 LEN = LEN(Va 


rrec) 


Osserviamo che la lunghezza della variabile Varrec calcolata dalla funzione LEN è 31 


byte, derivanti dalla somma dei 15 di Cognome, più i 10 di Nome, più i 2 di Eta (trat- 


tandosi di una variabile di tipo Intero, vedi paragrafo “Tipi di variabili” a pag. 20), più i 


4 di Salario (che è di tipo Singola precisione). 


IMMISSIONE DEI DATI NEL RECORD 
E SUA MEMORIZZAZIONE (PUT #) 


L’immissione dei dati nei vari campi del record può avvenire con istruzioni di questo 


tipo: 


INPUT. "Cognome"; Varrec.Cognome 
INPUT "Nome"; Varrec,.Nome 

INPUT "Eta"; Varrec.Eta 
INPUT "Stipendio"; Varrec.Stipendio 


alle quali segue l’istruzione che memorizza i dati di Varrec nel record: 


PUT #1, ;, Varrec 


Il programma completo risulta quindi SCRIVECAS di Figura 32, che impiega tutte 


variabili di tipo intero: 
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REM ***SCRIVECAS*** 


DI 

TVDE Wiprec 

“Cognome AS STRING * 15 
Nome AS STRI «TG. * 10 
Fla AS INTEGER 
Stipendio AS Ss NGLE. 
END IYPB. oO, 
DIM Varrec AS. Tiprec _ì1 e. 
OPEN "Organico.dat" FOR RANDOM AS #1 LEN = 
LE (Varrec). —- L--’’ o. : 3 
Numrec = 10F(1) \ LEN(varrec) 


DO o 
INPUT "Cognome"; Varrec. Cognome 
INPUT Nome"; Varrec. Nome - 
NPUT "Eta"; Varrec.Eta 
(PUT "Stipendio"; Varrec. Stipendio - 


Numrec = Numrec + 1° 

PUI #1, ‘Numrec, Varrec _ | _‘ 
INPUT "si vuole continuare? (S/N) ", R$ 
O - io 

L 


DOP UNTIL UCASES ( RS) LL 
OSE #1 


fui 

Z 

wi 
fessi 


Figura 32 - Programma di aggiunta dati a un file casuale 


Se il file Organico.dat già esiste, il programma SCRIVECAS gli aggiunge record alla 
fine senza sovrascrivere quelli esistenti. Ciò è reso possibile dall’istruzione 


Numrec = LOF(1) \ LEN(Varrec) 


che esegue le tre operazioni seguenti: 


e La funzione LOF(1) calcola il numero totale di byte del file Organico.dat, fornendo 0 
se il file è nuovo o è vuoto; 

e La funzione LEN(Varrec) calcola il numero di byte del record (Varrec è definita della 
stessa struttura del tipo Tiprec definito dall’utente); 

© Il numero di record del file è quindi calcolato dalla formula 


byte totali del file 
byte di un record 


numero di record = 


L’ultima operazione è possibile in quanto tutti i record del file ad accesso casuale hanno 
la stessa lunghezza, mentre non sarebbe possibile in un file sequenziale. 
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AGGIUNTA DI DATI NELLE PRECEDENTI 
VERSIONI DI BASIC (FIELD, MK...) 


L'istruzione TYPE...END TYPE costituisce una grande semplificazione rispetto alle 
precedenti versioni di BASIC; in esse Ia definizione del record avviene con l’istruzione 
FIELD (peraltro mantenuta in QBASIC, per una ragione di compatibilità), che accetta 
però solo variabili di stringa (anche per i dati numerici). Quindi il record dell’esempio 
precedente andrebbe definito con la seguente istruzione: 


FIELD #1, 15 AS Cognome$, 10 AS Nome$, 2 AS Eta$, 4 AS Stipeò 


A questo punto i dati immessi dall’utente vanno assegnati dapprima a variabili tempora- 
nee, con istruzioni del tipo 


INPUT "Cognome "; CS 
INPUT "Nome "; NS 

INPUT "Età ": Eta 

INPUT "Stipendio "; Stipe 


quindi vanno “spostati” in una particolare memoria di transito (buffer) con istruzioni del 
tipo 


LSET CognomeS=CS$ 
LSET NomeS=NS 


per le variabili di stringa, e del tipo 


LSÌ 
LSÌ 


T Eta$s=MKIS(Eta) 
T Stipe$=MKL$ (Stipe) 


Gi GI 


per le variabili numeriche. Nelle ultime due istruzioni sono state impiegate le funzioni 
MKI$, MKL$ che convertono i numeri in un formato di stringa adatto per l’uso in 
un'istruzione FIELD. 
e funzioni di questo tipo sono in tutto quattro, e sono indicate in Tabella 19. 


Tipo Î 


dell’argomento 


Lunghezza della 
stringa fornita 


Funzione 


Intero LONG 
Singola precisione 
Doppia precisione 


Tabella 19 - Argomenti e risultati delle funzioni di conversione MKI$, MKL$, MKS$, 
MKD$ 
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LETTURA GLOBALE DI DATI 


Il seguente programma legge tutti i record del file Organico.dat in modo globale, da 
primo all’ultimo. 


TYPE liprec >» —. 

Cognome AS STRING È 15 
Nomé AS STRING * 10 

Eta AS INTEGER. 
Stipendio AS SINGI 
END TYPE. 

DI Varrec AS minréc \- lu.’ 
OPEN “Organico. S FOR. RANDOM AS #1 LEN = LEN(Varrec). 
Numrec = LOF(1) Ii -. n A. I” 
FoR Nr = 1to Numrec . 


— i 


GET #1, Nr, Varrec i - 
PRINT "Cognome: “, Varrec. Cognome 
i "Nome: x | Varrec. Nome. 
RIND "Eta: \Varreo. | 
PRINT i. | Varrec. Stipendio 


CLOSE di 
END 


In esso l’istruzione GET legge dal file numero 1 (cioè da Organico dat.) i dati del 
record numero Nr, e li assegna alla variabile Varrec, in modo che possano essere visua- 
lizzati dalle successive istruzioni PRINT. La sua forma sintattica è 


GET [#] numfile [, [numrecordì] |[, variabilel] 


dove la variabile può essere di un tipo qualsiasi (anche di stringa a lunghezza variabi- 
le, o di tipo definito dall’utente) e, se viene omessa, 1 dati letti sono memorizzati in una 
memoria di transito (buffer). 


LETTURA DI DATI NELLE PRECEDENTI 
VERSIONI DI BASIC (CV...) 


Anche la lettura di un file casuale è più laboriosa con le precedenti versioni di BASTC, 
in quanto le stringhe che rappresentano numeri vanno nuovamente convertite in numeri 
con istruzioni del tipo 


PRINT CVI(Etas) 
PRINT CVL(Stipes) 
Le precedenti funzioni CVI, CVL, che convertono le stringhe dell’istruzione FIELD in 


numeri, appartengono all’insieme delle quattro funzioni di questo tipo indicate in 
Tabella 20. 
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Funzione Lunghezza J Tipo di numero 


dell’argomento fornito 
CVI 2 byte Intero 
CVL 4 byte Intero LONG 
CVS 4 byte Singola precisione 
CVD 8 byte Doppia precisione 


Tabella 20 - Argomenti e risultati delle funzioni di conversione CVD, CVI, CVL, CVS 


RICHIAMO DI RECORD TRAMITE 
I NUMERI DI RECORD 


Come ho accennato, uno dei maggiori vantaggi dei file ad accesso casuale rispetto a 
quelli sequenziali è la possibilità di richiamare un record qualsiasi, indicandone il 
numero in un'istruzione GET. Il seguente programma LEGGEREC chiede un numero 
di record e ne visualizza i dati sullo schermo. 


REM *** LEGGERE ce 
DEFINDAZ. | {_ "+ 
CONST Falso = = di vero _ Nor Falso 
TYPE Tiprec “—- 
| Cognome AS STRING x 15 
| Nome AS STRING * 10. 
Eta AS. INTEGER 1 
Stipendio. AS Ss. NGLE 
AL l 
DIM. Varrec AS prec . ..+°Y "> 
OPEN Legio, dat" FOR ‘RANDOM AS 4 .. = LEN(Varrec) 
Numrec. - LOFO ) \ arno) uu. ’ 
Ancora. Vero. . 


DO 
PRINE “Indica i) numero di record l> 
PRENTE. © (0 per IS: t; 

IN PUT mn «Nr, 


IF Nr > 0 AND Nr < Numrec THEN 
— SE 4, Nr, Varrec. 
- ELSBIE Nr - 0 THEN 


Aricora = Falso 

ELSE 

PRINT "Valore non valido." 
END IF 
LOOP WHILE Ancora 
END ° o 


LETTURA/SCRITTURA BINARIA DI FILE 


L'accesso binario è la terza modalità per leggere o scrivere i dati di un file, oltre 
all’accesso sequenziale e a quello casuale. Esso permette di accedere in modo grezzo ai 
byte di qualsiasi file, quindi non solo di quelli in formato ASCII, ma anche in formato 
Microsoft Word o di tipo eseguibile (cioè con estensione .EXE). 

T file aperti in accesso binario sono trattati come sequenze non formattate di byie; seb- 
bene sia possibile leggere o scrivere un record in un file aperto in modalità binaria, non 
è necessario che il file sia organizzato in record di lunghezza fissa, dato che l’accesso 
binario non tratta record ma caratteri (che si possono considerare come record). Un pro- 
gramma che legge il file Misure.dat in modalità binaria è il seguente LEGGBEBIN: 


REM *** LDEGGEBIN *** _ 
OPEN "Misure.dat" FOR BINARY AS #1 
DO UNTIL EOF(1) n ou 
GET #1,., 16 

PRINT i%. 

LOOP 


In esso la prima istruzione apre il file Misure.dat in modalità binaria e gli assegna il 
numero 1. L'istruzione GET ha la stessa forma sintattica vista nel paragrafo “Lettura 
globale di dati” (+ pag. 141), però in questo caso il parametro numrecord indica la 
posizione del byte in cui comincia la lettura, riferita all’inizio del file. Se numrecord 
non è indicato, si assume la posizione del carattere successivo all'ultimo letto. 

La lunghezza della variabile indica il numero di byte che verranno letti, ricordando che 
una variabile di tipo Intero è lunga due caratteri, una di tipo Intero LONG o in singola 
precisione quattro caratteri, e una in Doppia precisione otto caratteri (vedi paragrafo 
“Tipi di variabili” a pag. 20). 

Per comprendere il tipo di risultati che si ottengono con la lettura binaria, supponiamo 
che il file Misure .dat abbia il contenuto “angelo”. Questi caratteri vengono memoriz- 
zati nel file attraverso i rispettivi codici ASCII esadecimali (vedi paragrafo “Tabella 
dei codici ASCII” a pag. 14), riportati in Tabella 21. 


Carattere | Codice ASCII 
esadecimale 


O OT 
DN 
YI 


Tabella 21 - Codici ASCII esadecimali di caratteri memorizzati nel file Misure.dat 


Quando l’istruzione GET #1, , 1% legge la successione dei numeri esadecimali 


22 61 6E 67 65 6C 6P 22 
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presente nel file, ne inserisce due alla volta nella variabile i% scambiandoli di ordine e 
convertendoli nel sistema di numerazione decimale (un modo semplice per eseguire la 
conversione da numeri esadecimali è di usare la Calcolatrice, nella visualizzazione 
scientifica, presente negli Accessori di Windows). Perciò la variabile i% assumerà suc- 
cessivamente i valori decimali indicati nella prima colonna di Tabella 22. 


Valore Valore 
L decimale esadecimale 
24866 61° 22 
26478 67. 6E 
27749 6C 65 
8815 22. 6F 


Tabella 22 - Equivalenti decimali di alcuni numeri esadecimali 


A 


ALTRE OPERAZIONI CON I FILE 
(NAME, KILL, CHDIR, MKDIR, FILES) 


QBASIC possiede diverse istruzioni che permettono di eseguire da programma alcune 
operazioni su file e sottoindirizzari, operazioni che di solito vengono eseguite attraver- 
so comandi del sistema operativo MS-DOS. Anche se queste istruzioni possono essere 
eseguite in modo immediato, raramente lo sono, dato che QBASIC riporta automatica- 
mente al sistema operativo MS-DOS dopo l’esecuzione di un programma. 

La Tabella 23 permette di confrontare i nomi dei comandi DOS e delle istruzioni 
QBASIC che eseguono tali operazioni. 


operazione comando DOS istruzione QBASIC 


cambio di nome a un file REN[AME] CEE UE NAME “CEE” AS “UE” 


cancellazione di un file da disco ERASE agenda. bas KILL “agenda. bas” 
DEL agenda. bas 


cambio dell’indirizzario CHDIR C:DBASE CHDIR “C:DBASE” 
corrente CD C:DBASE 


creazione di un nuovo MKDIR C:TEMP MKDIR “C:TEMP” 
indirizzario MD C:TEMP 


| cancellazione di un indirizzario RMDIR C:TEMP RMDIR “C:TEMP” 
(vuoto) RD C:TEMP 


visualizzazione dei file DIR FILES 
dell’indirizzario corrente, o di DIR A: FILES “A” 
quello specificato DIR *.BAS FILES “* BAS” 


Tabella 23 - Nomi dei comandi DOS e delle istruzioni QBASIC che eseguono le stesse 
operazioni 
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Capitolo 14 


La grafica 


SCHEDE GRAFICHE 


QBASIC dispone di istruzioni specifiche per disegnare grafici sullo schermo o 
trasferirli sulla stampante, istruzioni che richiedono l'esistenza di un adattatore grafico 
all'interno del computer e di uno schermo grafico a esso collegato. Gli adattatori grafici 
disponibili comprendono le seguenti schede grafiche: 

HGA (Hercules Graphics Adapter) 

CGA (Color Graphics Adapter) 
EGA (Enhanced Graphics Adapter) 
VGA (Video Graphics Adapter) 
MCGA (Memory Controller Gate Array) 
Esse differiscono per il numero di colori che permettono di visualizzare contempora- 
neamente e per la massima risoluzione che rendono disponibile. 


RISOLUZIONE E PIXEL 


Già sappiamo che lo schermo di un personal computer permette di visualizzare caratteri 
alfanumerici o semigrafici disponendoli in una matrice di caselle costituita da 25 righe 
(orizzontali) e 80 colonne (verticali); ciò si esprime anche dicendo che la risoluzione in 
modalità testo è 25 righe per 80 colonne. 

In realtà ogni carattere visualizzato sullo schermo è ricavato a sua volta da una matrice 
di 8 righe e 8 colonne (ma sono possibili anche i valori 8*14, 9*14 e 9*16), i cui incroci 
sono detti pixel e risultano accesi o spenti, a seconda del caratiere da visualizzare (vedi 
Figura 33). 


Figura 33 - Visualizzazione del carattere “A” con una matrice di 8 
righe e 8 colonne 


Mentre in modalità testo l’utente può scegliere solo il carattere da visualizzare in una 
casella, senza intervenire sulle singole configurazioni di pixel, in modalità grafica può 
accedere direttamente a ogni singolo pixel, disponendo quindi di una risoluzione più 
elevata. 

Se infatti moltiplichiamo le 80 colonne e le 25 righe di testo per gli 8 pixel di cui sono 
costituite, otteniamo una risoluzione grafica di 640 colonne e 200 righe di pixel, valore 
anche superato da molte schede grafiche. Naturalmente, al crescere dei numeri di righe 
e di colonne diminuisce la dimensione dei pixel, avendo così immagini più nitide. 

Il pixel, che è quindi il più piccolo elemento di immagine di cui è costituito un oggetto 
grafico, è individuato dal numero della colonna e della riga che si incrociano in esso, 
detti coordinate. 

Le colonne sono numerate da sinistra a destra (coordinata x) e le righe dall'alto in basso 
(coordinata y) a partire dalla posizione più in alto e a sinistra, che ha coordinate (0,0) ed 
è detta home (vedi Figura 34). 
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x positivo 


) g 
(0,0) (320,0) (639,0) 
£ 
= (820,100) 
2 © 
e_N 
(0,199) (320,199) (639,199) 
[DA © 2 


Figura 34 - Coordinate di particolari pixel nella modalità SCREEN 2 


ISTRUZIONE SCREEN 


L'istruzione necessaria per impostare la modalità grafica di schermo è SCREEN, che 
nel caso più semplice ha la seguente forma sintattica: 


SCREEN n 


dove n è un numero intero che indica il modo operativo prescelto, secondo quanto indi- 
cato di seguito (ira parentesi, dopo il modo operativo, sono riportate le schede grafiche 
supportate). 


0 (CGA, EGA, VGA, MCGA, HGA) 

È il valore preimpostato, e corrisponde alla modalità di testo con risoluzione di 80 
colonne e 25 righe (ma sono possibili anche i valori 40*25, 40*43, 40*50, 80*43 e 
80*50). Supporta fino a 16 colori scelti da 64 con schede EGA o VGA, e fino a un mas- 
simo di 8 pagine di memoria video. 


1 (CGA, EGA, VGA, MCGA) 
Risoluzione grafica 320*200, di testo 40*25 e casella carattere con risoluzione 8*8. 
Supporta 4 colori di primo piano, 16 di sfondo e 1 pagina di memoria video. 


2 (CGA, EGA, VGA, MCGA) 
Risoluzione grafica 640*200, di testo 80*25 e casella carattere con risoluzione 8*8. 
Supporta 1 colore di primo piano, 1 di sfondo e 1 pagina di memoria video. 


3 (HGA, Olivetti, AT&T) 
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Risoluzione grafica 720*348, di testo 80*25 e casella carattere con risoluzione 9*14. 
Supporta 2 pagine di memoria video. Prima di poterla usare si deve richiamare il driver 
Hercules MSHERC.COM. 


4 (Olivetti, AT&T) 

Risoluzione grafica 640*400, di testo 80*25 e casella carattere con risoluzione 8*16. 
Supporta 1 colore scelto da 16 come colore di primo piano, e 1 pagina di memoria 
video. 


7 (EGA, VGA) 

Risoluzione grafica 320*200, di testo 40*25 e casella carattere con risoluzione 8*8. 
Supporta fino a 16 colori, e 8 pagine di memoria video se la scheda EGA ha una memo- 
ria RAM superiore a 64 kbyte, altrimenti 2 pagine di memoria video. 


$ (EGA, VGA) 

Risoluzione grafica 640*200, di testo 80*25 e casella carattere con risoluzione 8*8. 
Supporta fino a 16 colori, e 4-pagine di memoria video se la scheda EGA ha una RAM 
superiore a 64 kbyte, altrimenti 1 pagina di memoria video. 


9 (EGA, VGA) : 

Risoluzione grafica 640*350, di testo 80*25 o 80*43 e casella carattere con risoluzione 
8*14 o 8*8. Supporta 16 colori scelti da 64 e 2 pagine di memoria video se l'adattatore 
ha una memoria RAM superiore a 64 kbyte, altrimenti 4 colori scelti da 16 e 1 pagina di 
memoria video. 


10 (EGA, VGA) 

Risoluzione grafica monocromatica 640*350, di testo 30*25 o 80*43 e casella carattere 
con risoluzione 8*14 o 8#*8. Supporta 4 tonalità di grigio scelte da 9 e 2 pagine di 
memoria video. La scheda deve avere una memoria RAM di 256 kbyte. 


11 (VGA, MCGA) 
Risoluzione grafica 640*480, di testo 80*30 o 80*60 e casella carattere con risoluzione 
8*16 o 8*8. Supporta 2 colori scelti da 262.144 e | pagina di memoria video. 


12 (VGA) 
Risoluzione grafica 640*480, di testo 80*30 o 80*60 e casella carattere con risoluzione 
8*16 o 8*8. Supporta 16 colori scelti da 262.144 e i pagina di memoria video. 


13 (VGA, MCGA) 
Risoluzione grafica 320*200, di testo 40*25 e casella carattere con risoluzione 8*$. 
Supporta 256 colori scelti da 262.144 e una pagina di memoria video. 


1 valori di risoluzione nelle modalità testo e grafica vanno tenuti presenti per posiziona- 
re rispettivamente 1 caratteri alfanumerici con l'istruzione LOCATE (vista nel paragrafo 
“Posizionamento del cursore” a pag. 31) e i pixel con le istruzioni grafiche che vedremo 
in seguito. A questo proposito osserviamo che, mentre l’istruzione LOCATE esprime le 
coordinate nella forma riga, colonna, le istruzioni grafiche le esprimono nella forma 
colonna, riga. Al termine di ogni programma in cui sia stata impostata una modalità 
grafica di schermo è bene inserire l'istruzione 
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nai 
Zi 
i 


SCREI 


che riporta al modo di testo standard con risoluzione di 25 righe per 80 colonne. 


DISEGNO DI SINGOLI PIXEL (PSET, PRESET) 


Il livello più elementare di controllo sulla creazione di disegni è costituito dall'accensio- 
ne e spegnimento dei singoli pixel. Ciò si ottiene con le istruzioni PSET (per Pixel 
SET) e PRESET (per Pixel RESET), che hanno le seguenti forme sintattiche: 


PSET (x, y) 
che traccia in posizione (x, y) un pixel con il colore dei primo piano, e 


PRESET (x, y) 


che traccia in posizione (x, y) un pixel con il colore dello sfondo (cioè lo spegne). 

In uno schermo monocromatico il colore del primo piano è quello impiegato per il testo, 
cioè di solito bianco o verde chiaro; il colore dello sfondo è nero o verde scuro. 

Se si dispone di uno schermo a colori si possono scegliere colori diversi usando PSET e 
PRESET nelle seguenti forme sintattiche 


PSET (x, y), colore 
PRESET (x, y), colore 


dove il parametro colore ha i valori e gli effetti che vedremo nel paragrafo “Colore di 
primo piano e di sfondo” (+ pag. 162). Dato che PSET usa come valore preimpostato il 
colore corrente di primo piano e PRESET quello di sfondo, PRESET impiegato senza 
colore cancella un punto disegnato con PSET, come mostra l'esempio che segue. 


SCREEN 2 

PRINT "Premi un tasto per terminare" 
DO. 1 

FOR X% 0. TO 640 


PSETO (X&, 100). 


NEXT X% 
FOR X% = 640 TO 0 STEP -1 
PRESET. (X3, 100) 


T.00P. UNTIL. INKEY$ <> 
END 


In questo programma l'istruzione SCREEN 2 imposta la risoluzione grafica 640*200, 
il primo ciclo FOR. ..NEXT disegna una linea orizzontale da sinistra a destra e il 
secondo ciclo FOR. . NEXT la cancella da destra a sinistra. 

Sebbene l'istruzione PSET permetta di disegnare qualsiasi figura indirizzando 1 singoli 


Ia 
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pixel, il risultato tende a essere alquanto lento, dato l'elevato numero di pixel che forma- 
no in genere una figura. Perciò QBASIC mette a disposizione diverse istruzioni che 
aumentano notevolmente la velocità con cui vengono disegnate figure quali lince, ret- 
tangoli ed ellissi, come vedremo nei paragrafi successivi. 


DISEGNO DI SEGMENTI (LINE) 


Mentre le istruzioni PSET e PRESET impiegano una sola coppia di coordinate (quelle 
del punto), l'istruzione LINE impiega due coppie di coordinate per tracciare un segmen- 
to, secondo la seguente forma sintattica: 


ET: (os Piga ela 010] 


dove (x,, y,) sono le coordinate di un estremo del segmento, (x, y,) quelle dell'altro, e 
colore il solito parametro che vedremo in seguito. Ad esempio, le seguenti istruzioni 
disegnano un segmento dal pixel di coordinate (10, 10) a quello di coordinate (150, 
200): 


SCREEN 1 
LINE (10, 10)-(150, 200) 


Osserviamo che QBASIC non considera l'ordine delle coppie di coordinate, per cui un 
segmento da (x,, y,) 2 (x, , y,) è lo stesso che un segmento da (x, y,) a (x, y)); quindi la 
coppia di istruzioni precedenti si può scrivere anche come: 


SCREI 
LINE 


mir 
Lil 
Z 
_ 


(150, 200)-(10, 10) 


L'ordine delle coordinate è tuttavia importante se si impiegano le coordinate relative, 
descritte nel prossimo paragrafo. 


COORDINATE RELATIVE (STEP) 


Le coordinate impiegate fino a ora erano coordinate assolute, in quanto misuravano le 
distanze orizzontali e verticali (in termini di pixel) contate a partire dalla posizione 
superiore sinistra dello schermo. Se invece si usa l'opzione STEP in una delle istruzioni 
grafiche (PSET, PRESET, LINE, CIRCLE, GET, PUT, PAINT), le coordinate vengono 
riferite all'ultimo punto indirizzato sullo schermo, sono cioè coordinate relative. Se, ad 
esempio, dopo le istruzioni 


SCREEN 2 
LINE (10, 10)-(100, 150) 


si impartisce l'istruzione 


PSET STEP (20, 30) 
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il punto sullo schermo verrà disegnato nella posizione di coordinate assolute (120, 180), 
cioè a distanza orizzontale 20 e a distanza verticale 30 dal punto (100, 150) in cui termi- 
nava l'ultimo segmento disegnato. 

Notiamo che l'istruzione SCREEN contiene un riferimento implicito al pixel situato nel 
centro dello schermo, cosicché una successiva opzione STEP avrà effetto da questo 
punto come risulta dal seguente programma. 


SCREEN 2 ’U'JIO0ÒÒù 
E STEP(-310, 100)-STEP(O, -200) 
FoRI&-19020 | |< -—_ 


LINE -STEP(30, 0). 
LINE STEP (0, 5) - - _ 
NEXL 
FOR 13 = L TO 20 


LINE STEP(-30, 0) STEP(O, 5) 


In questo programma la prima istruzione LINE traccia un segmento verticale dall'ango- 
lo inferiore sinistro a quello superiore sinistro dello schermo (per i segni, teniamo pre- 
sente il verso di crescita delle coordinate x e y indicato in Figura 34). Il primo ciclo 
FOR. ..NEXT traccia i gradini di scala dall'angolo superiore sinistro alla metà destra 
dello schermo, e il secondo ciclo FOR. . . NEXT traccia i segmenti verticali non raccor- 
dati dalla metà destra dello schermo all'angolo inferiore sinistro. L'uscita grafica è indi- 
cata in Figura 35. 


Forieca 


Figura 35 - Effetto di un programma con istruzioni LINE 


152 


DISEGNO DI RETTANGOLI (5, BF) 


L’istruzione LINE nella forma vista finora permetterebbe di scrivere un semplice pro- 
gramma che collega quattro segmenti per formare un rettangolo, come il seguente BOX: 


REM *** BOX *** 


SCREENL <.._ ° 
LINE (50, 50)-(170, 
LINE - STEP (0, 
LIN& - STEP (-120 
LINE - STEP (0, - 


Tuttavia un modo più semplice per disegnare un rettangolo è fornito dall’opzione B 
(per Box = riquadro) dell’istruzione LINE, che richiede di indicare soltanto due vertici 
opposti (l’inferiore sinistro e il superiore destro, o viceversa) del rettangolo. L'esempio 
che segue produce lo stesso risultato del precedente programma BOX: 


SCREEN 1 
LINE (50, 50)-(170, 170), , B 


Osserviamo che lo spazio fra le due virgole che precedono l’opzione B è riservato per 
un numero che determina il colore del perimetro del rettangolo, secondo quanto sarà 
indicato nel paragrafo “Colore di primo piano e di sfondo” (+ pag. 162). 

Se alla fine dell’istruzione LINE si aggiunge l’opzione BF (per Fill = riempi), l'interno 
del rettangolo risulta colorato dello stesso colore del perimetro. 


LINEE TRATTEGGIATE (STILE) 


L'istruzione LINE può contenere un ulteriore parametro, detto stile, che permette di 
disegnare diversi tipi di linee tratteggiate o punteggiate. La forma sintattica è in questo 
caso: 


LINE (x1, y1)-(x2, y2), , , stile 


dove stile è un numero intero nel formato esadecimale (cioè preceduto dai caratteri 
“&H”) che determina l'aspetto della linea, e si costruisce attraverso i passi seguenti: 


1) si stabilisce quali pixel della linea devono essere disegnati e quali no, attribuendo ai 
primi il bit “1” e agli altri a bit “0” (la prova può essere eseguita su un foglio qua- 
drettato) 


2) si scrive una sequenza di 16 bit che rappresenta la linea desiderata; ad esempio, per 


la linea di figura 36, costituita alternativamente da due pixel disegnati e due no si 
avrebbe: 
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1100 1100 1100 1100 


Figura 36 - Linea punteggiata costituita alternativamente da due punti disegnati e due 
no 


3) si trasforma ciascun gruppo di 4 bit nel carattere esadecimale corrispondente secondo 
la Tabella 24; in questo caso si avrebbero i caratteri: 


CCCC 
che, preceduti dai caratteri “&H”, costituiscono il numero esadecimale desiderato. 


Gruppo Carattere Gruppo Carattere 
di 4 bit esadecimale di 4 bit esadecimale 
0000 0 1000 8 
0001 1 1001 9 
0010 2 1010 A 
0011 3 1011 B 
0100 4 1100 Cc 
Q101 5 1101 D 
0110 6 1140 E 
| 0111 7 Ill F 


Tabella 24 - Corrispondenza fra gruppi di quattro bit e caratteri esadecimali 


Il programma LINEE che segue produce 6 tipi diversi di linee tratteggiate, e la Figura 
37 mostra il suo effetto. 


“REM ii. 
SCREEN 2/0 . 
DATA &HCCCC, ‘&HFFOO, HFOFO 
DATA &HF000, _6H7771, ‘&H8888- 
Riga = sd. 


FOR-I% - L TO 6 
- READ Stile% 

LOCATE Riga%, Colonrna% 

‘ PRINT HEX$S(Stile%) Lr 
INE (S%%, Y&)-(Dx%; Y), , , Stile$ 


BENE 

Riga% = Riga% +3 
v& = YV& +24 
NEXT 


Frenere un tasto per continuare 


Figura 37 - Effetto del programma LINEE che genera linee tratteggiate 
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DISEGNO DI CERCHI ED ELLISSI 
(CIRCLE) 


QBASIC permette di disegnare un gran numero di figure circolari, ellittiche od ovali, 
oltre ad archi e torte con fette staccate, tramite l’istruzione CIRCLE. Con varianti di 
questa istruzione si possono disegnare praticamente tuiti i tipi di linee curve. 

Come è intuitivo, per disegnare un cerchio è necessario conoscere la posizione del suo 
centro e la lunghezza del raggio, e queste informazioni sono richieste anche da QBA- 
SIC. Infatti, la più semplice forma sintattica dell’istruzione CIRCLE è : 


CIRCLE [STEP] (x, y), raggio 


dove: x, y sono le coordinate del centro e raggio è la distanza dei suoi punti dal centro. 
L’esempio che segue disegna un cerchio con centro (300, 100) e raggio 50. 


SCREEN 2 
CIRCLE ( 


300, 100), 50 


Osserviamo che se vogliamo usare come origine delle coordinate il centro dello scher- 
mo anziché l’angolo superiore sinistro, l’ultima istruzione va riscritta come 


CIRCLE STEP (-20, 0), 50 


DISEGNO DI ELLISSI (ASPETTO) 


L'istruzione CIRCLE può contenere un ulteriore parametro, detto aspetto, che modifica 
il cerchio in un’ellisse. In questo caso la forma sintattica diventa 


sa 


CIRCLE [STEP] (x, v), raggio, , , , aspetto 


dove: le virgole tra raggio e aspetto delimitano altri parametri che vedremo tra poco, 
mentre aspetto è il rapporto tra l’asse verticale e l’asse orizzontale dell’ellisse: 


asse verticale 
aspetto= ———__—_ 
asse orizzontale 


Se aspetto è maggiore di 1, l’ellisse risulta allungata in direzione dell’asse verticale, se è 
compreso tra 0 e 1 V'ellisse risulta appiattita sull’asse orizzontale, come mostrano i due 
esempi di Figura 38. 
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SCREEN 1 ì 


CIRCLE (60, 100), 80,,,,3 —> 


N 
PAG 


CIRCLE (180, 100), 80,,,3/10 —È >) 
L ) 


Figura 38 - Due diversi valori del parametro aspetto, e i relativi effetti prodotti 


DISEGNO DI ARCHI 


Un arco è un tratto di ellisse, i cui estremi vanno indicati specificando gli angoli da cui 

sono “visti” dal centro dell’ellisse. 

L'istruzione CIRCLE (al pari delle funzioni trigonometriche COS, SIN, TAN), misura 

gli angoli non in gradi ma in radianti, che possono essere calcolati in base alla semplice 
- formula 


radianti = gradi - de 
180 


(dove il valore di x, nel caso in cui debba essere impiegato più volte, può essere asse- 
gnato una volta per tutte a una costante numerica con un'istruzione del tipo 


CONST PI = 3.141592653589 


n 


Si tenga anche presente che l'ampiezza di un angolo viene misurata a partire dal semias- 
se x positivo (corrispondente alla posizione delle ore 3 su un orologio) e in verso antio- 
rario: la Figura 39 indica i valori di alcuni angoli notevoli. 


La forma sintattica dell’istruzione CIRCLE per disegnare archi è allora 


CIRCLE [STEP] (x, y), raggio, , inizio, fine[, aspetto] 


Un esempio del suo funzionamento è fornito dal seguente programma 


IS: 


n/2 


Figura 39 - Misura degli angoli nell'istruzione CIRCLE 


SCREEN 2 

Cc 0 
"CONST DIL a 141592053589; pi - 

i. __ 

"FOR Raggio& + 100 TO 220) STEP 20 

ti dio 1 /2.01). mm 
CIRCLE (320, 80), Raggio&, Inizio, m<MmtM))=Òè}e»(f(NVNNN)°°’'ll 
‘Inizio = Inizio +. (PI / 4) c__’1 n - 
NEXT Raggios ; i LL... i ) - 


Esso disegna i sette archi indicati in Figura 40, a partire da quello più piccolo e interno 
che inizia “alle ore 3” e termina “alle ore 12” (in realtà per ottenere le Figure 40 e 41 
ho aggiunto alla fine dell’istruzione CIRCLE il valore .5, per compensare la deforma- 
zione orizzontale prodotta dalla mia stampante). 
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Prenere un tasto per continuare 


Figura 40 - Archi di cerchio ottenuti con l’istruzione CIRCLE 


Se nell’istruzione CIRCL 


DISEGNO DI UNA TORTA 


E uno degli argomenti inizio 0 fine è negativo, l’inizio o la fine 


dell’arco risulta unito con un raggio al centro. Se entrambi gli argomenti sono negativi, 
si possono disegnare forme che vanno da una fetta di torta alla torta da cui è stata ta- 


gliata la fetta. Il programma F 


mostrata in Figura 41. 


REM *** FEDTA *** 


‘SCREEN 2 
CONST Raggio = 150, PI = 3.,141592653589#. 
Inizio =. 2.5. 

(Fine: = PI. - 

CIRCLE. (320,100), Raggio, , -Imizio,. Fine. 
CIRCLE. STEP (70,10), Raggio, ., -Fine, -Inizio 


ETTA che segue disegna la torta con una fetta staccata 
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Premere mn tasto per continuare 


Figura 41 - Torta con fetta staccata ottenuta con l’istruzione CIRCLE 


DEFINIZIONE DI UNA FINESTRA GRAFICA 
(CLS 1, VIEW) 


Gli esempi grafici presentati finora hanno usato l’intero schermo video come tavola da 
disegno; tuttavia l’istruzione VIEW permette di definire all’interno dello schermo fisico 
una specie di schermo in miniatura, detto “finestra grafica”. Una volta definita, tutte le 
operazioni grafiche avvengono all’interno di questa finestra, e i tentativi di disegnare al 
suo esterno sono ignorati. 

L’uso di una finestra grafica presenta due vantaggi: 


e rende facile cambiare la grandezza e la posizione dell’area di schermo.-in cui si vedono 
i grafici 

o permette di cancellare lo schermo all’interno della finestra, senza coinvolgere il suo 
esterno, con l’istruzione 


CLS 1 


L'istruzione VIEW non consente l’opzione STEP, e ha la seguente forma sintattica: 


VIEW [[SCREEN] (x1, vl) - (x2, v2)[, [colore], [bordo]]] 


dove: (x/, y1) e (x2, y2) definiscono gli angoli della finestra, secondo Ila sintassi stan- 
dard per i rettangoli di QBASIC vista nel paragrafo “Disegno di rettangoli” (+ pag. 
153). Gli argomenti facoltativi colore e bordo permettono di scegliere un colore rispetti- 
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vamente per l’interno e il perimetro della finestra, come vedremo nel paragrafo “Colore 
di primo piano e di sfondo” (+ pag. 162). 

In assenza dell’opzione SCREEN, tutte le coordinate di pixel sono considerate relative 
alla finestra anziché all'intero schermo. Ad esempio, se dopo l'istruzione 


VI 


EW (50, 60) - (150, 175) 


si disegna un pixel con l’istruzione 


PSET (10, 10) 


il pixel sarà visibile, in quanto è situato 10 pixel al di sotto e 10 pixel a destra dell’ango- 
lo superiore sinistro della finestra (le sue coordinate assolute di schermo sono (50+10, 
60+10), cioè (60, 70). 

Invece in presenza dell’opzione SCREEN tutte le coordinate sono considerate assolute, 
cioè misurate a partire dai lati dello schermo e non della finestra. Perciò, se dopò l’istru- 
zione 


VIEW SCREEN (50, 60) - (150, 175) 


si disegna un pixel con l’istruzione 


PSET (10, 10) 


il pixel non sarà visibile, perché situato 10 pixel al di sotto e 10 pixel a destra dell’ango- 
lo superiore sinistro dello schermo, quindi al di fuori della finestra. 

In assenza di tutti gli argomenti, l’istrazione VIEW considera come finestra l’intero 
schermo. 


RIDEFINIZIONE DELLE COORDINATE 
DELLA FINESTRA (WINDOW) 


di 


Le coordinate considerate finora per posizionare i pixel sullo schermo rappresentano le 
effettive distanze fisiche dall’angolo superiore sinistro dello schermo (o della finestra), e 
sono dette perciò coordinate fisiche. 

La loro origine, di coordinate (0, 0), è l’angolo superiore sinistro dello schermo (o della 
finestra), ed esse crescono spostandosi verso il basso e verso destra, come indicato nella 
Figura 34 del paragrafo risoluzione e pixel (+ pag. 147). 

Per cambiare questo sistema di riferimento, e sostituirlo ad esempio con il più familiare 
N.B. piscel = risoluzione ittica sistema di coordinate cartesiane, si usa l'istruzione 


WINDOW [[SCREEN] (x1,y1) -(x2,y2)] 


dove y/, y2, x) e x2 sono numeri reali che indicano rispettivamente i lati alto, basso, 
sinistro e destro della finestra, e sono detti coordinate logiche. Ad esempio, le seguenti 
istruzioni 
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SCREEN 2 
WINDOW (-320, 100)-(320, -100) 


portano la posizione dell’origine del sistema di coordinate nel centro dello schermo, in 
modo che una successiva istruzione 


CIRCLE (0, 0), 150 


possa disegnare un cerchio con il centro nel centro dello schermo e raggio 150. Osser- 
viamo che dopo l’istruzione WINDOW ia coordinata verticale cresce verso l’alto, men- 
tre dopo l'istruzione WINDOW SCREEN cresce verso il basso (in entrambi i casi la 
coordinata orizzontale cresce verso destra). 

In assenza di tutti gli argomenti, WINDOW ripristina il sistema di coordinate fisiche 
standard. 


USO DEL COLORE 


Come ho accennato al paragrafo “Istruzione SCREEN” (+ pag. 148), se si dispone di 
un adattatore grafico CGA, si può selezionare una delle due seguenti modalità grafiche 


° SCREEN I con risoluzione 320*200 pixel, 4 colori di primo piano e 16 di sfondo 
® SCREEN 2 con risoluzione 640*200 pixel, un colore di primo piano e uno di sfondo. 


Nei paragrafi successivi ci interesseremo in prevalenza della modalità SCREEN 1, dato 
che SCREEN 2 è una modalità monocromatica. 


COLORE DI PRIMO PIANO E DI SFONDO (COLOR) 


Le istruzioni grafiche viste finora, e cioè PSET, PRESET, LINE, CIRCLE, VIEW pos- 
sono impiegare l’ulteriore parametro colore, che determina il colore di primo piano, 
secondo le seguenti forme sintattiche semplificate: 


PSET (x, v), colore 


PRESET (x, y), colore 


LINE (x1, vyl)-(x2, y2), colore[,B[F]] 


CIRCLE (x, y), raggio, colore 


VIEW (x1, vl)-{(x2, v2), colore 


L'effetto del parametro colore dipende dal numero della palette o tavolozza di colori 
selezionata in una precedente istruzione COLOR, che ha la seguente forma sintaltica: 
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coLor Isfondol[, palette] 


e permette di selezionare anche il colore di sfondo. 

Nella modalità SCREEN I il colore è un’espressione numerica che può assumere uno 
dei valori o ‘attributi’ 0, 1, 2 0 3, e la palette il valore 0 o 1, con gli eifeiti indicati in 
Tabella 25. 


Attributo con palette 0 con palette 1 
di colore 
si 

0 colore sfondo colore sfondo 

1 verde i EVWAtiexo, 

2 rosso magenta 

3 marrone bianco 

[E 


Tabella 25 - Colori risultanti dal valore del parametro colore e dal numero della palet- 
te nella modalità SCREEN 1 


Lo sfondo può assumere invece un valore compreso tra 0 e 15, con gli effetti indicati in 
Tabella 26. 
I Valore colore 
0 nero 
1 blu 
2 verde 
3 ciano 
4 rosso 
5 magenta 
6 marrone 
v bianco 
8 grigio scuro 
9 AZZUITO 
10 verde chiaro 
Il ciano chiaro 
12 rosa 
13 magenta chiaro 
14 giallo chiaro 
15 bianco brillante 


Tabella 26 - Colori di sfondo nella modalità SCREEN 1 
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Il valore 0 determina lo stesso colore dello sfondo, e quindi un disegno invisibile; esso è 
utile per cancellare una figura senza dover cancellare l’intero schermo o la finestra gra- 
fica, come nel seguente programma ELLISSEI, che disegna un'’ellisse e la cancella 
quando si preme un tasto: 


Questa tecnica è impiegata per ottenere effetti di animazione, come nel seguente pro- 
gramma ELLISSB?. 


(REM *** ELLISSE2 6** 


Esso disegna e cancella ripetutamente un’ellisse, spostandone ogni volta verso destra la 
coordinata orizzontale del centro. 


CAMBIAMENTO DEL COLORE DI PRIMO PIANO 
O DI SFONDO (PALETTE E PALETTE USING) 


Se si dispone di una scheda CGA, i colori di ognuna delle due palefte sono predetermi- 
nati, secondo quanto indicato in Tabella 25. Se invece si dispone di una scheda EGA o 
VGA, è possibile scegliere il colore corrispondente a ognuno dei quattro attributi 
ammessi, per mezzo delle istruzioni PALETTE e PALETTE USING. Esse permettono 
di assegnare qualsiasi colore della palette disponibile a qualsiasi attributo. 

Ad esempio, l'istruzione seguente 


PALETTE 4, 13 


fa sì che 1 risultati di tutte le istruzioni grafiche che usano l’attributo 4 siano visualizzati 
in magenta chiaro, (che è il colore 13). 
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Questo cambiamento di colore è istantaneo, e riguarda anche le visualizzazioni grafiche 
già presenti sullo schermo. 

Il seguente programma QUADRATI mostra l’effetto delle istruzioni PALETTE e 
PALETTE USING, visualizzando due rettangoli che cambiano continuamente di colore, 
insieme allo sfondo. 


REM ***QUADRATI*** 
PALETTE 0,1 

SCREENI 
FORi%=0T03 

 a%%) = 1% 

INEXTi% 
LINE (138, 35)-(288, 165), 3, BF 
LINE (20, 10)-(160, 100), 2, BF 


FORi%=0T03 
a%(i%) = @%(1%) +1) MOD 16. 
NEXT1% 
- PALETTE USING a%(0) —_ 
FOR k% =1TO 10000: NEXT k% 
LOOP WHILE INKEY$ = "" 


Osserviamo che le due istruzioni LINE terminano con l’opzione BF che, come abbiamo 
visto nel paragrafo “Disegno di rettangoli” (> pag. 153), determina il tracciamento di 
un rettangolo riempito con lo stesso colore del perimetro. 


RIEMPIMENTO DI FIGURE (PAINT) 


Se si vogliono riempire figure di forma qualsiasi si usa l’istruzione PAINT, che ha la 
forma sintattica seguente: 


PAINT [STEP] (x, y)[, [interno], [contorno]] 


dove: x, y sono le coordinate di un punto qualsiasi interno alla figura da riempire, con- 
torno è il numero del colore del bordo, e inferno ha un significato che varia leggermen- 
te se il riempimento deve avvenire con un colore uniforme, oppure con un motivo per- 
sonalizzato dall’utente, come vedremo nelle prossime pagine. 
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RIEMPIMENTO CON UN COLORE 


Per il riempimento con un colore, interno è il numero del colore con cui si vuole dipin- 
gere la figura. Ad esempio, il seguente programma disegna un cerchio in ciano, quindi 
ne dipinge l’interno in magenta: 


SCREEN 1 


CIRCLE (160, 100), 50, 1 
PAINT (160, 100), 2, 1 


(naturalmente le coordinate che compaiono nella precedente istruzione PAINT potreb- 
bero essere sostituite da quelle di un qualsiasi altro punto interno, come ad esempio 
(150, 90), (170, 110) o (180, 80). 

È bene tenere presenti i seguenti punti: 


° se le coordinate di PAINT indicano un punto sul contorno della figura, non si ottiene 
alcun riempimento, mentre se indicano un punto esterno alla figura, viene dipinto tut- 
to lo schermo tranne l’interno della figura (che rimane con il colore dello sfondo cor- 
rente); 

® la figura dev'essere completamente chiusa, altrimenti il colore “esce fuori” riempien- 
do l’intero schermo, oppure una figura più ampia che racchiude la precedente. Si può 
provare con il seguente programma, nel quale una circonferenza con una piccola 
interruzione è racchiusa da un rettangolo; il colore comincia a riempire l’interno della 
circonferenza, e continua a riempire l’intero rettangolo; 


i:{......|_1__/' 
(300, 100), G0-, 0, 1.9. DI, 1/3 


\LINE (200, 10)-(400, 190), , B 


“PAINT (300, 100) 


° se si dipinge un oggetto con un colore diverso dal bordo, si deve usare l’opzione con- 
torno, come nel seguente esempio che disegna un triangolo in verde e ne dipinge 
l’interno in rosso. 


TANGOLO *** 


10, .25)- (310, 25), _1 
(160, 175), l 
LO, 25), 
160, 100), 2,1: 


(se invece si scrivesse PAINT (160, 100), 2 l’intero schermo verrebbe dipinto di rosso). 
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RIEMPIMENTO CON MOTIVO MONOCROMATICO 


Per il riempimento con un motivo creato dall'utente, interno è un'espressione di stringa 
della seguente forma: 


CHRS (numi) + CHRS(num2) +... + CHR$(numn) 


dove numi, num, ... numn sono dei numeri nel formato esadecimale (cioè preceduti dai 
caratteri “&H”), che si determinano in maniera diversa a seconda che si voglia ottenere 
un motivo monocromatico (nella modalità SCREEN 2) oppure un motivo a colori (nella 
modalità SCREEN 1). 

Per costruire un motivo monocromatico si seguono i passi seguenti: 


1) si disegna il motivo di riempimento tracciando dei segni qualsiasi su un foglio di car- 
ta quadrettata avente 8 colonne e fino a 64 righe; un esempio può essere quello di 
Figura 42. 


| 
| 
| 
| 
H Figura 39 - Schema di un motivo di riempimento mono- 


frati Meo ul cromatico 


2) si trasforma ogni quadratino contenente un segno in un bit “1”, e ogni quadratino 
vuoto in un bit “0”, ottenendosi tanti gruppi di $ bit per quante sono le righe di Figu- 
ra 42. Il risultato è indicato in Figura 43 


1/0 0/0 0|0 

1|1 O/1 0|0 

to1t/0. 100) 

i]o|]o[o|o|1|o|o 

DE | d | At Figura 43 - Trasformazione in bit di un motivo di riem- 
0 0|0] 0 19 | LASA RA 
3) si trasforma ciascun gruppo di 4 bit nel carattere esadecimale corrispondente, secon- 


do quanto indica la Tabella 24 di pag. 154, ottenendosi quindi: 


1000 0100 > &H84 
1100 1100 > &HCC 
1011 0100 > &HB4 
1000 0100 &H84 
1000 0100 > &H84 
0000 0000 —> &H0O0 
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4) Si utilizzano i numeri esadecimali così determinati come argomenti di funzioni 
CHR$, che vengono concatenate per costruire un’espressione di stringa del tipo 


MotivoS = CHR$(&H84) + CHRS(&HCC) + CHRS(&HB4) + 
CHERS(&H84) + CHR$S(&H84) + CHRS(&HO) 


Questa espressione può finalmente essere usata come valore di interno in un'istruzione 


PAINT STEP(0, 0), Motivos 


Un programma completo può essere il seguente CERCHIOEMME: 


‘REM ***CERCHIOEMME*** 
SCREEN 2. - 
Motivo$ - CHR$(&H84) + CHR$(&HCC) + CHR$(&HB4) + 


ARS (&£H84) + CHRS$(&H84) + CHR$(&HO) 


Si 
CIRCLE STEP(0, 0), 150 
PAINT STEP(0, 0), Motivo$ 


che produce l’uscita di Figura 44, 


get MMMMMMMMMMMMPTra 
(A MMIMMMMMMMMMMMMMMMMMn, 
iI MMMMMMMNMMMMMMMMMMMMMBTh,, 
1 MMMMMMHMMMMMMMMMMMMMbMMMMMMPh 
af MMMMMMMMMMMMMMMMMMMM}MMMMMMMM},. 
AMMMMMMMMMMMMMMMMHMMMMMMMMMMMMMMM\ 
At MMMMI4MMMMAMMMMHMMMM4MMMMMMMMbMMbh, 
AMMMMMMMMMMMMMMMMMMMBMMMMMMMMMMMPA, 
{AMMMMMMMMMMMIMMMMMMEMMMMMMMMMMMMMMMM} 
{MMMMMMEMMMMMI{MMMMMMMMMMMMMPMMMMMMMH} 
f'MMMMMMMIMMMMMMbb{MMPMMMMM{k{MMMbMMMMM 
(MMMMMMMMMMMMMMiMMMM{M MMM} MMMMMMMMMMiM 
(MMMMMMMMMM}4MM}MMMMM Mb MMMMMMM{MMM[{M 
(MMM MMMMMMMM}MHMMMMMMMMMMMM}{MMMMM}: 
\MMMMMMMMMMMMMM MMMMMMMMM MMM MMM} 
‘{MMMKMMMMMIMPMMIMMMMHMMMMMMMMMMMMMMh} 
\MMMMMMMMMMMMMbMMMMMMMMMbMMMMMM}4MM{b 
{MM{MMMMMMMMM}MMMMBMMMMMMMMMMMMMM} 
*MMMMMMMMMMMMMMMMMMMMMMMMMMM}M: 
MMMMMbMMMMMMMMMMMMM MMMMMEF 
*{{MMMMMMMMMMMMMMMM MMM MMMMMj# 
‘4MMMMMMMMMMMMMM 
"MMMMMMMMMMMMKMM 
“MM MMMMMMMMMMM® 


Figura 44 - Un cerchio riempito con un motivo definito dall’utente 
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RIEMPIMENTO CON UN MOTIVO A COLORI 


Nella modalità SCREEN 1 è possibile creare un motivo colorato costituito da strisce 
diagonali di colore verde e rosso (con la palette 0), oppure azzurro e magenta (con la 
palette 1). 

I passi da seguire sono i seguenti: 


1) si disegna il motivo su un foglio di carta quadrettata avente 4 colonne e fino a 64 
righe (ciò perché nella modalità SCREEN 1 ogni pixel richiede 2 bit, mentre una riga 
di pixel è sempre memorizzata in un numero intero di 8 bit). Un esempio può essere 
quello di Figura 45 


| AZZUITO magenta magenta | magenta 


azzurro magenta magenta 


magenta magenta aAZZUIro magenta 
_———_zy_ym_t<«i 
magenta magenta magenta AZzuITo 


Figura 45 - Schema di un motivo di riempimento colorato 


2) si trasforma il colore di ciascun quadratino nel suo codice binario, che si ottiene con- 
vertendo in numero binario l’attributo di colore indicato in Tabella 25 (0 —> 00; 1 —> 
01; 24 10; 3 + 11). Nel nostro caso si hanno i valori indicati in Figura 46 


Figura 46 - Trasformazione in bit di un motivo di riempimento 


3) si trasforma ciascun gruppo di 4 bit nel carattere esadecimale corrispondente, secon- 
do la solita Tabella 24 di pag. 154, ottenendo si quindi: 


0110 1010 + &H6A 
001 1010 > &H9A 
010 Q110 &HA6 
1010 1001 &HA9 


4) si utilizzano i numeri esadecimali così determinati come argomenti di funzioni 
CHR$, che vengono concatenate per costruire un'espressione di stringa, da usare 
come valore di interno in un'istruzione PAINT. 
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Il seguente programma disegna un triangolo e ne dipinge l’interno con il motivo creato 
in precedenza 


Motivos = CHRS(&H6A) + CHR$(&H9A) + CHRS(&HA6) + 
CHRS (&HA9). . vg. __Ò 
LINE (10, 25) (310, 25) 
0 - 

DINE (0, 25) —._____- 
| PAINT (160, 100), Motivo$ — 


Osserviamo che se si vuole dipingere una figura bordata con un colore contenuto anche 
nel motivo, nell’istruzione PAINT si deve indicare anche l’argomento del contorno, 
altrimenti il motivo fuoriesce dai confini della figura. Perciò nel programma seguente 
l'istruzione PAINT contiene anche l'argomento 2. 


Seen. { \  J{xyx_______n.ù 
Motivo$ = CHRS(&H6A) + CHR$(&H9A) + CHRS(&HA6) + 
LINE (/0, 25) (10, 25), 2 

LINE —(160, i/5), 2 

LINE — (10, 25), 32 

PAINT (160, 100), Motivos, 2. 


(RSI 


Si 
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LINGUAGGIO DI MACRO GRAFICHE (DRAW) 


a più potente istruzione grafica di QBASIC è DRAW, che ha ia seguente forma 
sintattica: 


DRAW stringacomandi 


dove la stringacomandi contiene uno o più comandi che permettono di disegnare grafici 
e figure sullo schermo. I comandi o macro sono formati da una o due lettere, e costitui- 
scono nel loro insieme un linguaggio per la definizione di oggetti grafici detto linguag- 
gio di macro grafiche o GML (da Graphics Macro Language). 

La Tabella 27 elenca i comandi che permettono di tracciare righe e muovere il cursore 
(se n% non è indicato, il cursore si muove di un pixel), e la Figura 47 riassume grafica- 
mente I loro effetti. 


| Comando | Effetto | 


B Muove il cursore senza disegnare 

N Disegna e riporta il cursore alla posizione di partenza 

U [n%] Muove il cursore in alto di n% pixel 

D [n%] Muove il cursore in basso di 1% pixel 

L [n%] Muove il cursore a sinistra di n% pixel 

R [n%] Muove il cursore a destra di 1% pixel 

E [n%] uove il cursore in diagonale a destra in alto di n% pixel 
F [n%] uove il cursore in diagonale a destra in basso di n% pixel 
G [n%] uove il cursore in diagonale a sinistra in basso di n% pixel 
H [n%] uove il cursore in diagonale a sinistra in alto di n% pixel 
Mx%,y% Muove il cursore al punto di coordinate assolute x%,y% 
M+xyM - Muove il cursore al punto di coordinate x%,y% relative 

x,y alla posizione del pixel corrente 


Tabella 27 - Comandi di DRAW per tracciare righe e muovere il cursore 


"RO I 3° 
Direzioni 


La «-—— dei comandi ——» Rn 
di DRAW 


v4 | > 


Figura 47 - Direzioni dei comandi di DRAW 
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Il programma DISLINEE che segue permette di disegnare linee verticali e orizzontali 
usando i tasti di movimento del cursore; esso contiene anche la macro B, che viene ese- 
guita quando si preme la barra spaziatrice, e attiva/disattiva la visualizzazione del dise- 
gno, impostando la lunghezza del movimento unitario del cursore. 


REM *** DISLINEE | ’ÒÒ0@y) ___ 
CONST Su = 72, Giu - 80, Li = 75 Dx n. 
CONST. -«—.__ . 1 


26 = CH i. 
PS =" i -- ; - - 
PRINT i. 1 tasti cursore per disegnare linee". 


PRINT " Premere la barra spaziatrice sa iniziare/ finire o 
il disegno. di linee" +». 
—. "Premere Lo per iniziare, ©» Der finire" 


E .__. .__ 


+ mc CASE He 0 
L. 7$ + CHR$ (ul. 
Et 
CASE S + CHR$ (Giu) 
DRAW DE + Cl Da" 
CHRS (Sx). 
....... 
Li 5S + CHR$ (Dx) 
| DRAW PS + "C2 Rit 
CASE Spazio »P.'l\6l’0òòò 
IF P$ - ‘ * TRENDS = 'B' ELSE pg fr 
i... ..0°0 
you m_ò 
 Rispî - Ms 
LOOP UNTIL Risp$ = "f" 
SCREEN 0, 0 
"WIDTH 80 
END : 


Altri comandi, relativi a colore, rotazione e riduzione di scala, sono indicati in Tabella 
28. Tra essi è molto utile in particolare il comando X, che permette di far eseguire a 
DRAW una stringacomandi definita in precedenza, assegnandola come argomento alla 
variabile VARPTR$ secondo la seguente forma sintattica: 


DRAW "Xx" + VARPTRS (stringacomandi) 


Un esempio di utilizzo del comando X è fornito dal seguente programma TRIANGO- 
LO: 
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REM *** TRIANGOLO *** 

| SCREEN I 

Triangolo$ = "F60 L120 E 60" 
DRAW "C2 X" + VARPIRS (Triangolo 5) 


| DRAW "BD30 P1,2 C3 BM30,-30". 


Comando Effetto 
An% Ruota un oggetto di n% * 90 gradi, dove n% può essere uguale a 0, 
1,203 
Cn% Imposta il colore della riga tracciata, dove n% è un attributo di colore 
Pn1%,n2% mposta il colore di riempimento con l’attributo ni% e 
; il colore del bordo di un oggetto con l’attributo n2% 
Sn% Determina la scala di grandezza del disegno, impostando la 


lunghezza del movimento unitario del cursore. 
Tl valore di n% preimpostato è uguale a 4, equivalente a 1 pixel 


TAn% Ruota un angolo di n% gradi, da -360 fino a 360 
Xx Permette di eseguire una stringa di comandi definita in precedenza, 
L assegnandola come argomento alla variabile VARPTRS$ 


Tabella 28 - Comandi di DRAW per colore, rotazione e riduzione di scala 


STAMPA DI GRAFICI (GRAPHICS) 


Un'altra differenza tra le modalità testo e grafica riguarda il modo di stampare i risultati 
delle elaborazioni: mentre il testo può essere inviato direttamente alla stampante anzi- 
ché al video con l’istruzione LPRINT (vista al paragrafo “Stampa su carta”, > pag. 32), 
la grafica deve prima essere visualizzata sullo schermo, e poi trasferita alla stampante 
con la pressione dei tasti <Shift>+<PrtSc>. Perché questa operazione abbia successo, è 
però necessario che in precedenza sia stato eseguito il seguente comando di MS-DOS 


C:\DOS\GRAPHICS tipo 


dove tipo specifica il modello di stampante in uso, secondo quanto indicato in Tabella 
29 (se si usa una stampante non compresa nell’elenco, si deve cercare nel suo Manuale 
a quale di quelle indicate essa corrisponde). 


Nota. Se non si vuole “sporcare” l’immagine grafica con la scritta “Premere un 
tasto per continuare” presentata da QBASIC (ad esempio perché si vuole 
stamparla), è possibile inserire alla fine del programma grafico la riga 


DO: LOOP WHILE INKEYS = "" 


che sospende l’elaborazione (e quindi la visualizzazione della scritta) finché non si pre- 
me un tasto qualsiasi. 
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Tipo | Stampante 
| 
COLOR 1 | IBM Personal Computer Color Printer con nastro nero 
COLOR4 IBM Personal Computer Color Printer con nastro rosso, | 
verde, blu e nero 
COLOR8 IBM Personal Computer Color Printer con nastro ciano, 
magenta, giallo e nero 
| HPDEFAULT Qualsiasi stampante Hewlett-Packard PCL | 
DESKJET Hewlett-Packard DeskJet 


GRAPHICS | 1BM Personal Graphics Printer, Proprinter o Quietwriter 


QUIETIET 


QUIETJETPLUS 


GRAPHICSWIDE IBM Personal Graphics Printer con carrello da 11 pollici 
_ASERIJET Hewlett-Packard LaserJet 

JASERIETTI Hewlett-Packard LaserJet II 
PAINTJET Hewlett-Packard Paint Jet 


Hewlett-Packard QuietJet 


Hewlett-Packard QuierJet Plus | 


RUGGEDWRITER Hewlett-Packard RuggedWriter 
RUGGERWRITERWI] Hewlett-Packard RuggedWriterwide 
THERMAL IBMPC Convertible Thermal Printer 
THINKJET Hewlett-Packard ThinkJet 


Tabella 29 - Tipi di stampante che si possono indicare nel comando GRAPRICS di MS- 


DOS 
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Capitolo 15 


Il suono 


ISTRUZIONE BEEP 


QBASIC permette di generare semplici motivi musicali che, a causa delle caratteristi- 
che hardware dei primi personal computer (e della maggior parte di quelli attuali), sono 
limitati a una sola nota alla volta. SOUND (che produce risultati piuttosto semplici) e 
PLAY (che si articola in un vero e proprio linguaggio musicale). 

A parte l’istruzione BEEP (0 PRINT CHR$ (7), che determina l’emissione di un suono 
di frequenza 800 Hertz (o cicli al secondo) e durata un quarto di secondo, sono disponi- 
bili le istruzioni musicali SOUND (che produce risultati piuttosto semplici) e PLAY 
(che si articola in un vero e proprio linguaggio musicale). 


ISTRUZIONE SOUND 


L'istruzione SOUND produce una nota simile a quella di un singolo tasto del pianofor- 
te. La sua forma sintattica è: 


SOUND freguenza, durata 


dove: frequenza è un numero compreso fra 37 e 32767, che rappresenta il numero di 
Hertz della nota, secondo quanto indicato in Figura 48; durata è un numero intero com- 
preso fra 0 e 65535 che rappresenta il numero di impulsi di clock della nota desiderata 
(un secondo equivale a 18,2 impulsi). 


LA | SI IDO [RE | MI | FA ISOLILA | SI [DO*]RE | MI | FA [SOLJ LA | SI |DO {RE | MI 


246.94 293.66 349.23 440.00 523.25 659.26 783.99 987.77 1174.70 
220.00 261.63 329.63 392.00 493.88 587.33 698.46 880.00 1046.50 1318.50 


Figura 48 - Valori della frequenza per le note centrali del pianoforte (DO* è il do cen- 
trale) 


La frequenza delle altre note si ottiene considerando che essa raddoppia nel passare da 
un’ottava alla successiva. Per quanto riguarda la durata, la Tabella 30 mostra i suoi 
valori in relazione ai termini musicali “tempo” e “notazione”. 
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Tempo | Notazione | Durata 
Molto lento Largo 27.3 - 18.02 
Adagio 18.2 - 18.55 
Larghetto 16.55 - 14.37 
Lento Andante 14.37 - 10.11 
Medio | Moderato | 10.11- 9.1 
Veloce | Allegro 9.1 - 6.5 


Tabella 30 - Corrispondenza fra la terminologia musicale e i valori del parametro 
durata 


L'istruzione SOUND è usata soprattutto per produrre suoni glissati o simili a quelli di 
una sirena, inserendola in cicli del tipo 


FOR n = 37 TO 32767 
SOUND n, 1 
NEXT 


In pratica può essere opportuno aggiungere all'istruzione FOR un'opzione del tipo 
STEP 5, per rendere distinguibili le singole note, ridurre la durata del suono a valori 
inferiori a 1, e restringere il campo di variabilità della frequenza, che a valori abbastan- 
za elevati produce suoni non udibili. 

L'uso della funzione RND permette di ottenere suoni di “tipo computer”, come quelli 
impiegati in alcuni videogiochi: in questo caso il programma può essere simile al 
seguente SUONOGAME, che produce note di frequenza e durata casuale. 


"REM ***SUONOGAME*** 
FOR Tempo - 1 TO 50. 
Notà = INT(RND i 2735) + 500 
Dur = INT(RND * 3) +1 
“SOUND Nota, Dur 
NEXT. Tempo 


LINGUAGGIO DI PROGRAMMAZIONE MUSICALE PLAY 


L'istruzione PLAY è molto più versatile di SOUND per la creazione di semplici motivi 
musicali e mette a disposizione un piccolo linguaggio di programmazione musicale. 
Questo permette di costruire una opportuna stringacomandi da inserire nell'istruzione 


PLAY stringacomandi 


Il linguaggio comprende comandi di ottava, di durata, di tempo e di operazioni, che 
sono elencati qui di seguito. 
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Comandi di ottava 


> 
Suona la nota che segue all’ottava immediatamente più alta. Il massimo valore che può 
raggiungere un’ottava è 6. 


< Pb 
Suona la nota che segue all’ottava immediatamente più bassa. Il minimo valore che può 
raggiungere un’ottava è 0. 


On 
Imposta come ottava corrente quella numero n, (dove n, può variare da 0 a 6). Il valore 
predefinito è n = 4. Il do centrale (DO*) è all’inizio dell’ottava numero 3. 


À, B, C, D, E, F, G, [#+-] 

Sono i nomi delle note nella notazione anglossassone, e determinano il suono della 
rispettiva nota. 

La Tabella 31 riporta la corrispondenza coni nomi delle note nella notazione dei Paesi 
latini. 


Paesi 
Anmglosassoni 


A 
15) 
C 
D 
E 
F 
G 


Tabella 31 - Corrispondenza fra i nomi delle note nei Paesi latini e anglosassoni 


L'aggiunta a una nota del simbolo “#° o “+” produce un diesis (mezzo tono in alto), 
l'aggiunta di ‘“—° produce un bemolle (mezzo tono in basso). 


Nr 
Suona la nota numero n, con n compreso fra 0 e 84. n = 0 indica una pausa. 
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Comandi di durata 


La 
Imposta la durata di ogni nota, come indicato in Tabella 32. 


comando 


denominazione | figura di valore 


semibreve 


6 


semibreve con ‘ 


minima 


semiminima 


croma 


semicroma 


bicroma 


semicroma 


Tabella 32 - I comandi di\durata e le figure di valore prodotte 


Quando la durata precede una nota (come ad esempio in LC2), questa durata ha effetto 
su tutte le note che seguono fino al prossimo comando L. Se si fa seguire a una nota un 
valore n senza indicare la lettera L, (scrivendo ad esempio C2), solo quella nota è 
impostata a quella durata, mentre quelle che seguono mantengono la durata impostata 
in precedenza. Ad esempio, la stringa 


“L4 C2 E G” 


ha il seguente effetto: il comando L4 imposta la durata delle note successive a 1/4, 
mentre C2 imposta la durata della sola nota C a 2/4 (gli spazi sono del tutto irrilevanti, 
e servono solo per migliorare la leggibilità). 

Il punto (.) posto dopo una nota (o una pausa) ne prolunga la durata della metà (cioè 
determina una nota o una pausa che ha una volta e mezza la durata determinata da Ln); 
dopo una nota si può indicare più di un punto per aumentare la durata ancora di più. 


MN 
Attiva il modo musicale normale, nel quale ogni nota è suonata per sette ottavi del tem- 
po determinato da Ln. 
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ML 
Attiva il modo musicale legato, nel quale ogni nota è suonata per l’intero tempo deter- 
minato da Ln. 


MS 
Attiva il modo musicale staccato, nel quale ogni nota è suonata per tre quarti del tempo 
determinato da Ln. 


Esempio. Per trasformare in una stringacomandi il seguente brano musicale 


è sufficiente impostare la durata LA, quindi scrivere le singole note, indicando le durate 
diverse da L4. 
Osserviamo che la quarta nota (il si) appartiene all’ottava inferiore a quella di partenza, 
mentre le tre successive appartengono all’ottava superiore a quella del si appena suona- 
to. L'istruzione completa è pertanto: 


PLAY “L4 C2 


ni 


G <B.> L16 C D L2 C” 


Comandi di tempo 


Pn 


Determina una pausa, di durata variabile da 4/4 (n = 1) a 1/64 (n = 64). Le possibilità 
sono le stesse del comando Ln, e in particolare si può usare il punto (.) per aumentare la 
durata della pausa. 


Tn 

Imposta il tempo, cioè il numero n di note da un quarto (L4) che vengono suonate in un 
minuto. È una misura di tipo “metronomo”, che dà il numero di battiti al secondo, con n 
che varia da 32 a 255, e ha per valore predefinito 255. 


Comandi di operazione 


MF 
Forza la stringacomandi di PLAY a suonare in primo piano, in modo che nessun'altra 
istruzione di QBASIC possa essere eseguita fino al termine della musica. 


MB 
Forza la stringacomandi di PLAY a suonare in sottofondo, in modo che successive 
istruzioni di QBASIC possano essere eseguite finché la musica termina. 
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Xx 
Permette di eseguire una siringacomandi definita in precedenza, assegnandola come 
argomento alla variabile VARPTR$ secondo la seguente forma sintattica: 


PLAY "x" + VARPTRS(stringacomandi) 


. Un esempio di utilizzo del comando X è fornito dal seguente programma scale, che suo- 
na la scala musicale nelle 7 ottave disponibili. 


1, 


PIRS (Scala) 


In esso la durata delle note è impostata a 1/16, e V’istruzione PLAY "O" + 
STR$(I%) inserita nel ciclo FOR...NEXT ha l’effetto di aumentare di 1 il valore 
dell’ottava corrente a ogni esecuzione del ciclo. 
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Capitolo 16 


Intercettazione degli errori 


PREVEDERE GLI ERRORI 


Durante l’esecuzione di un programma l’utente può commettere un errore, ad esempio 
dimenticare di accendere la stampante in un programma di stampa, o chiedere di aprire 
un file in un sottoindirizzario inesistente. Ciò avrebbe l’effetto di visualizzare un 
messaggio sullo schermo e fermare l’applicazione in corso. Poiché l’utente 
normalmente non saprebbe porre rimedio a questa situazione, essa deve essere prevista 
dal programmatore, indicando la serie di azioni che si devono svolgere al suo 
verificarsi. Ciò si ottiene con la tecnica dell’intercettazione degli errori, che consiste 
nell’attivare l’intercettazione dell’errore, scrivere un’opportuna “routine di gestione 
degli errori”, che svolge le azioni necessarie per correggere l’errore (ad esempio la 
visualizzazione di un messaggio sullo schermo), e quindi restituire il controllo al 
programma principale. 


ATTIVAZIONE DELL’INTERCETTAZIONI 
| DEGLI ERRORI (ON ERROR GOTO) 


= 


L’intercettazione degli errori è attivata all’interno di un modulo dall’istruzione 
ON ERROR GOTO riga 


dove riga è il numero o l’etichetta della prima riga della routine di gestione degli errori. 
Quando QBASIC incontra la precedente istruzione, ogni successivo errore di esecuzio- 
ne all’interno di quel modulo determina un salto alla riga indicata. 


Nota. Il numero di riga non dev'essere 0, se si vuole attivare una routine di gestione 

degli errori. Infatti l'istruzione ON. ERROR GOTO 0° ha due effetti diversi a secon- 

da di dove si trova. Se si trova 

* al di fuori di una routine di gestione degli errori, disabilita l’intercettazione degli erro- 
ri; perciò ogni errore successivo fa terminare il programma, anziché eseguire la routine 

© all’interno di una routine di gestione degli errori, (come nell’esempio successivo) fa 
visualizzare il messaggio standard di QBASIC e ferma il programma. 


CODICI DI ERRORE (ERR) 


QBASIC dispone della funzione 


che fornisce un codice numerico corrispondente al tipo di errore che si è verificato 
durante l’esecuzione di un programma. Nello scrivere la routine di gestione degli errori 
si dovrà indicare un'azione appropriata per ciascun codice di errore che si prevede si 
possa verificare. La Tabella 33 riporta tutti i codici possibili e i corrispondenti significa- 
ti (come si può osservare, solo alcuni di questi errori possono essere commessi 
dall’utente; gli altri, essendo errori di programmazione, non interessano nel contesto 
della gestione degli errori). 
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Cod, Significato Cod. Significato 
1 | NEXT senza FOR 37 | Numero degli argomenti non corrispondente 
2. | Errore di sintassi 38 | Matrice non definita 
3, RETURN senza GOSUB 20 | È necessaria una variabile 
4. | Valori dell’istruzione DATA esauriti SO | Superamento limiti dell’istruzione FIELD 
5. | Chiamata di funzione non valida 51 | Errore interno 
6 |Superamento limiti di calcolo (overflow) |! 52 | Nome o numero del file errato 
7. | Memoria esaurita 53 | File non trovato 
$ |Etichetta non definita 54 Modalità di accesso al file errata 
9 | Indice inferiore fuori limite 55 | File già aperto 
10 | Definizione doppia 56 | Istruzione FIELD attiva 
11 | Divisione per zero 57 | Errore di ingresso/uscita su periferica 
12 | Non ammesso in modalità diretta 58 | Il file esiste già 
13. | Tipo di dati non corrispondente 59 | Lunghezza del record errata 
14. | Spazio di stringa esaurito 61 | Disco pieno 
16 | Formulaa stringa troppo complessa 62 | Immissione dati oltre la fine del file 
17. | Impossibile continuare 63 | Numero del record errato 
18. | Funzione non definita 64 | Nome del file errato 
19 | Manca RESUME 67 | Troppi file 
20. | RESUME senza errore 68 | Periferica non disponibile 
24. | Fuori tempo massimo di periferica 69 | Superamento limiti nel buffer comunicazioni 
25 | Errore di periferica 70 | Permesso negato 
26 | FOR senza NEXT 71 | Disco non pronto 
27 |La stampante ha esaurito la carta 72. | Errore di supporto del disco 
29 | WHILE senza WEND 73 | Caratteristica avanzata non disponibile 
30. | WEND senza WHILE 74 | Tentativo di rinominare su altro disco 
33 | Etichetta doppia 75 | Errore di accesso al percorso/file 
35 | Sottoprogramma non definito 76 | Percorso non trovato 


Tabella 33 - Codici di errore e relativi significati 


ROUTINE DI GESTIONE DEGLI ERRORI 


Una routine di gestione degli errori consiste delle tre parti seguenti: 


1. il numero o l’etichetta di riga indicata nell’istruzione ON ERROR GOTO riga, che è 
la prima istruzione che il programma esegue dopo il verificarsi di un errore; 
2.11 corpo della routine, che identifica l'errore che ha causato il salto e svolge l’azione 


appropriata per ogni errore previsto; 
3. una o più istruzioni R 
gramma principale. 


SUME o RESUM 


E NEXT, che riportano il controllo al pro- 


Una routine di gestione degli errori non si può trovare in una procedura SUB o FUNC- 


TION, o in una funzione 


EF FN. Inoltre, dev'essere situata in modo che il normale 


flusso dell’esecuzione non l’attraversi, ad esempio essendo preceduta da un’istruzione 


END. 
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Esempio il seguente programma STAMPADATI apre la stampante come se fosse un 
file (come abbiamo visto nel paragrafo “File sequenziali: creazione”, > a pag. 130), e 
le invia i dati letti da una coppia di istruzioni READ...DATA. Il programma rimanda 
poi a una routine Gestert se si verifica uno dei seguenti errori: 


e sono stati esauriti i valori presenti nell’istruzione DATA (codice di errore numero 4) 
e la stampante non risponde perché non è stata accesa (codice di errore numero 25) 
e la stampante ha esaurito la carta (codice di errore numero 27) 


In ciascuno di questi tre casi viene visualizzato un messaggio sullo schermo e restituito 
il controllo al programma principale, secondo due meccanismi differenti che vedremo 
in dettaglio nel paragrafo successivo. 


“REM (F**STAMPADATI*** Sa 
DATA Roma, New. York, molo, Londra, Masci _’]°Ò 
ONST. i 0, Vero. NOT L..- = Falso _ 


inedeti L THEN. 
di. » 


LOO 
SEI 
P "Accendi i stampante, eo"; _ 
PRINT "premi un tasto Der. continuare". 
sla DE). 
. RESUME 
CASK:2%. . _ 
PRINT “La. i... ha esaurito da carta. 
‘PRINT "Aggiungi Carta e premi un tasto" 
. Pausa$ = INEOSSA ti. 
| RESTORE 
RESUME 
CASE ELSE 
ON ERROR GOTO 0 
END SELECT 
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USCITA DALLA ROUTINE DI GESTIONE 
DEGLI ERRORI (RESUME NEXT) 


Come abbiamo visto nell’esempio precedente, l’uscita dalla routine di gestione degli 
errori può avvenire con una delle due istruzioni RESUME o RESUME NEXT. Esse pre- 
sentano le seguenti differenze. 

RESUME fa ritornare alla stessa istruzione del programma che ha causato l'errore (vedi 
Figura 49). 

Nella routine Gesterr è stata usata RESUME per ritornare all'istruzione PRINT che ha 
tentato di inviare i risultati alla stampante; ciò per fornire un’altra opportunità di stam- 
pare il valore in Mem$, dopo che la stampante presumibilmente è stata accesa. 


Inizio 


a | Istruzione b-* | Rogline 
= con errore? TT I 
> A gestione 


Figura 49 - Diagramma di flusso cori l'istruzione RESUME 


RESUME NEXT fa invece ritornare all’istruzione del programma successiva a quella 
che ha causato l’errore (vedi Figura 50). 

Nella routine Gesterr è stata usata RESUME NEXT per ripristinare la situazione 
dall’errore. In questo caso sarebbe stato errato usare RESUME, perché essa avrebbe 
posto il programma in un ciclo senza fine, dato che ogni volta che il controllo ritorna 
all'istruzione READ del programma principale, si verifica un altro errore “Valori 
dell’istruzione DATA esauriti” che richiama di nuovo la routine, e così via. 
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Coinizio > 


Routine 


Istruzione 
di 


<< conerrore?. > 


Istruzione + RESUME NEXT 
successiva | 


Figura 50 - Diagramma di flusso con l’istruzione RESUME NEXT 


Un'altra variante di RESUME ha la forma sintattica 


RESUME riga 


dove riga è il numero o l'etichetta di una riga esterna a qualsiasi blocco SUB...END 
SUB, FUNCTION...END FUNCTION o DEF FN...END DEF. A causa di queste restri- 
zioni sulla posizione di riga, un'istruzione RESUME riga può dar luogo a effetti colla- 
terali indesiderati se si trova in una routine di gestione degli errori che gestisce errori 
interni a una procedura SUB O FUNCTION, o a una funzione DEF FN. Per questa 
ragione è preferibile usare RESUME o RESUME NEXT. 
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